home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-10-28 | 52.0 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6d 73 40 6d 6f 6c |piled by| rms@mol|
|00000020| 65 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |e.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 54 75 65 20 | 46 65 62 20 32 37 20 32 | on Tue |Feb 27 2|
|00000040| 33 3a 35 32 3a 32 37 20 | 31 39 39 36 0a 3b 3b 3b |3:52:27 |1996.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 66 73 66 2f 72 6d 73 | 2f 65 31 39 2f 6c 69 73 |/fsf/rms|/e19/lis|
|00000070| 70 2f 74 70 75 2d 65 64 | 74 2e 65 6c 0a 3b 3b 3b |p/tpu-ed|t.el.;;;|
|00000080| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 31 | emacs v|ersion 1|
|00000090| 39 2e 33 30 2e 39 32 2e | 31 2e 0a 3b 3b 3b 20 62 |9.30.92.|1..;;; b|
|000000a0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000b0| 46 53 46 20 32 2e 31 30 | 0a 3b 3b 3b 20 6f 70 74 |FSF 2.10|.;;; opt|
|000000c0| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|000000d0| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|000000e0| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|000000f0| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000100| 6e 20 45 6d 61 63 73 20 | 31 38 2e 0a 0a 28 69 66 |n Emacs |18...(if|
|00000110| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000120| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000130| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000140| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|00000150| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|00000160| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |).. |(string-|
|00000170| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|00000180| 69 6f 6e 20 22 31 39 2e | 32 39 22 29 29 29 0a 20 |ion "19.|29"))). |
|00000190| 20 20 20 28 65 72 72 6f | 72 20 22 60 74 70 75 2d | (erro|r "`tpu-|
|000001a0| 65 64 74 2e 65 6c 27 20 | 77 61 73 20 63 6f 6d 70 |edt.el' |was comp|
|000001b0| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 20 31 |iled for| Emacs 1|
|000001c0| 39 2e 32 39 20 6f 72 20 | 6c 61 74 65 72 22 29 29 |9.29 or |later"))|
|000001d0| 0a 0a 0a 23 40 32 35 20 | 54 50 55 2d 65 64 74 20 |...#@25 |TPU-edt |
|000001e0| 76 65 72 73 69 6f 6e 20 | 6e 75 6d 62 65 72 2e 1f |version |number..|
|000001f0| 0a 28 64 65 66 63 6f 6e | 73 74 20 74 70 75 2d 76 |.(defcon|st tpu-v|
|00000200| 65 72 73 69 6f 6e 20 22 | 34 2e 32 22 20 28 23 24 |ersion "|4.2" (#$|
|00000210| 20 2e 20 34 37 32 29 29 | 0a 23 40 36 34 20 2a 49 | . 472))|.#@64 *I|
|00000220| 66 20 6e 6f 6e 2d 6e 69 | 6c 20 28 64 65 66 61 75 |f non-ni|l (defau|
|00000230| 6c 74 29 2c 20 54 50 55 | 2d 65 64 74 20 75 73 65 |lt), TPU|-edt use|
|00000240| 73 20 69 73 70 65 6c 6c | 20 66 6f 72 20 73 70 65 |s ispell| for spe|
|00000250| 6c 6c 20 63 68 65 63 6b | 69 6e 67 2e 1f 0a 28 64 |ll check|ing...(d|
|00000260| 65 66 63 6f 6e 73 74 20 | 74 70 75 2d 68 61 76 65 |efconst |tpu-have|
|00000270| 2d 69 73 70 65 6c 6c 20 | 74 20 28 23 24 20 2e 20 |-ispell |t (#$ . |
|00000280| 2d 35 34 32 29 29 0a 23 | 40 36 31 20 2a 49 66 20 |-542)).#|@61 *If |
|00000290| 6e 6f 6e 2d 6e 69 6c 2c | 20 54 50 55 2d 65 64 74 |non-nil,| TPU-edt|
|000002a0| 20 6b 69 6c 6c 73 20 6d | 6f 64 69 66 69 65 64 20 | kills m|odified |
|000002b0| 62 75 66 66 65 72 73 20 | 77 69 74 68 6f 75 74 20 |buffers |without |
|000002c0| 61 73 6b 69 6e 67 2e 1f | 0a 28 64 65 66 63 6f 6e |asking..|.(defcon|
|000002d0| 73 74 20 74 70 75 2d 6b | 69 6c 6c 2d 62 75 66 66 |st tpu-k|ill-buff|
|000002e0| 65 72 73 2d 73 69 6c 65 | 6e 74 6c 79 20 6e 69 6c |ers-sile|ntly nil|
|000002f0| 20 28 23 24 20 2e 20 2d | 36 35 32 29 29 0a 23 40 | (#$ . -|652)).#@|
|00000300| 37 32 20 2a 50 65 72 63 | 65 6e 74 61 67 65 20 6f |72 *Perc|entage o|
|00000310| 66 20 74 68 65 20 73 63 | 72 65 65 6e 20 74 6f 20 |f the sc|reen to |
|00000320| 73 63 72 6f 6c 6c 20 66 | 6f 72 20 6e 65 78 74 2f |scroll f|or next/|
|00000330| 70 72 65 76 69 6f 75 73 | 20 73 63 72 65 65 6e 20 |previous| screen |
|00000340| 63 6f 6d 6d 61 6e 64 73 | 2e 1f 0a 28 64 65 66 76 |commands|...(defv|
|00000350| 61 72 20 74 70 75 2d 70 | 65 72 63 65 6e 74 2d 73 |ar tpu-p|ercent-s|
|00000360| 63 72 6f 6c 6c 20 37 35 | 20 28 23 24 20 2e 20 2d |croll 75| (#$ . -|
|00000370| 37 37 31 29 29 0a 23 40 | 36 34 20 2a 4e 75 6d 62 |771)).#@|64 *Numb|
|00000380| 65 72 20 6f 66 20 63 6f | 6c 75 6d 6e 73 20 74 68 |er of co|lumns th|
|00000390| 65 20 74 70 75 2d 70 61 | 6e 20 66 75 6e 63 74 69 |e tpu-pa|n functi|
|000003a0| 6f 6e 73 20 73 63 72 6f | 6c 6c 20 6c 65 66 74 20 |ons scro|ll left |
|000003b0| 6f 72 20 72 69 67 68 74 | 2e 1f 0a 28 64 65 66 76 |or right|...(defv|
|000003c0| 61 72 20 74 70 75 2d 70 | 61 6e 2d 63 6f 6c 75 6d |ar tpu-p|an-colum|
|000003d0| 6e 73 20 31 36 20 28 23 | 24 20 2e 20 2d 38 39 31 |ns 16 (#|$ . -891|
|000003e0| 29 29 0a 23 40 35 34 20 | 4e 6f 6e 2d 6e 69 6c 20 |)).#@54 |Non-nil |
|000003f0| 69 66 20 77 65 20 61 72 | 65 20 72 75 6e 6e 69 6e |if we ar|e runnin|
|00000400| 67 20 4c 75 63 69 64 20 | 45 6d 61 63 73 20 6f 72 |g Lucid |Emacs or|
|00000410| 20 76 65 72 73 69 6f 6e | 20 31 39 2e 1f 0a 28 64 | version| 19...(d|
|00000420| 65 66 63 6f 6e 73 74 20 | 74 70 75 2d 65 6d 61 63 |efconst |tpu-emac|
|00000430| 73 31 39 2d 70 20 28 62 | 79 74 65 2d 63 6f 64 65 |s19-p (b|yte-code|
|00000440| 20 22 08 c1 99 3f 87 22 | 20 5b 65 6d 61 63 73 2d | "...?."| [emacs-|
|00000450| 76 65 72 73 69 6f 6e 20 | 22 31 39 22 5d 20 32 29 |version |"19"] 2)|
|00000460| 20 28 23 24 20 2e 20 31 | 30 30 30 29 29 0a 23 40 | (#$ . 1|000)).#@|
|00000470| 35 31 20 4e 6f 6e 2d 6e | 69 6c 20 69 66 20 77 65 |51 Non-n|il if we|
|00000480| 20 61 72 65 20 72 75 6e | 6e 69 6e 67 20 4c 75 63 | are run|ning Luc|
|00000490| 69 64 20 45 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |id Emacs| version|
|000004a0| 20 31 39 2e 1f 0a 28 64 | 65 66 63 6f 6e 73 74 20 | 19...(d|efconst |
|000004b0| 74 70 75 2d 6c 75 63 69 | 64 2d 65 6d 61 63 73 31 |tpu-luci|d-emacs1|
|000004c0| 39 2d 70 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |9-p (byt|e-code "|
|000004d0| 08 85 08 00 c1 c2 0b 5c | 22 87 22 20 5b 74 70 75 |.......\|"." [tpu|
|000004e0| 2d 65 6d 61 63 73 31 39 | 2d 70 20 73 74 72 69 6e |-emacs19|-p strin|
|000004f0| 67 2d 6d 61 74 63 68 20 | 22 4c 75 63 69 64 22 20 |g-match |"Lucid" |
|00000500| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 5d 20 33 |emacs-ve|rsion] 3|
|00000510| 29 20 28 23 24 20 2e 20 | 31 31 33 39 29 29 0a 23 |) (#$ . |1139)).#|
|00000520| 40 39 34 20 4d 61 70 73 | 20 74 68 65 20 43 53 49 |@94 Maps| the CSI|
|00000530| 20 66 75 6e 63 74 69 6f | 6e 20 6b 65 79 73 20 6f | functio|n keys o|
|00000540| 6e 20 74 68 65 20 56 54 | 31 30 30 20 6b 65 79 62 |n the VT|100 keyb|
|00000550| 6f 61 72 64 2e 0a 43 53 | 49 20 69 73 20 44 45 43 |oard..CS|I is DEC|
|00000560| 27 73 20 6e 61 6d 65 20 | 66 6f 72 20 74 68 65 20 |'s name |for the |
|00000570| 73 65 71 75 65 6e 63 65 | 20 3c 45 53 43 3e 5b 2e |sequence| <ESC>[.|
|00000580| 1f 0a 28 64 65 66 76 61 | 72 20 43 53 49 2d 6d 61 |..(defva|r CSI-ma|
|00000590| 70 20 28 6d 61 6b 65 2d | 73 70 61 72 73 65 2d 6b |p (make-|sparse-k|
|000005a0| 65 79 6d 61 70 29 20 28 | 23 24 20 2e 20 31 33 31 |eymap) (|#$ . 131|
|000005b0| 36 29 29 0a 23 40 39 34 | 20 4d 61 70 73 20 74 68 |6)).#@94| Maps th|
|000005c0| 65 20 53 53 33 20 66 75 | 6e 63 74 69 6f 6e 20 6b |e SS3 fu|nction k|
|000005d0| 65 79 73 20 6f 6e 20 74 | 68 65 20 56 54 31 30 30 |eys on t|he VT100|
|000005e0| 20 6b 65 79 62 6f 61 72 | 64 2e 0a 53 53 33 20 69 | keyboar|d..SS3 i|
|000005f0| 73 20 44 45 43 27 73 20 | 6e 61 6d 65 20 66 6f 72 |s DEC's |name for|
|00000600| 20 74 68 65 20 73 65 71 | 75 65 6e 63 65 20 3c 45 | the seq|uence <E|
|00000610| 53 43 3e 4f 2e 1f 0a 28 | 64 65 66 76 61 72 20 53 |SC>O...(|defvar S|
|00000620| 53 33 2d 6d 61 70 20 28 | 6d 61 6b 65 2d 73 70 61 |S3-map (|make-spa|
|00000630| 72 73 65 2d 6b 65 79 6d | 61 70 29 20 28 23 24 20 |rse-keym|ap) (#$ |
|00000640| 2e 20 31 34 36 35 29 29 | 0a 23 40 31 31 32 20 4d |. 1465))|.#@112 M|
|00000650| 61 70 73 20 74 68 65 20 | 66 75 6e 63 74 69 6f 6e |aps the |function|
|00000660| 20 6b 65 79 73 20 6f 6e | 20 74 68 65 20 56 54 31 | keys on| the VT1|
|00000670| 30 30 20 6b 65 79 62 6f | 61 72 64 20 70 72 65 63 |00 keybo|ard prec|
|00000680| 65 64 65 64 20 62 79 20 | 50 46 31 2e 0a 47 4f 4c |eded by |PF1..GOL|
|00000690| 44 20 69 73 20 74 68 65 | 20 41 53 43 49 49 20 37 |D is the| ASCII 7|
|000006a0| 2d 62 69 74 20 65 73 63 | 61 70 65 20 73 65 71 75 |-bit esc|ape sequ|
|000006b0| 65 6e 63 65 20 3c 45 53 | 43 3e 4f 50 2e 1f 0a 28 |ence <ES|C>OP...(|
|000006c0| 64 65 66 76 61 72 20 47 | 4f 4c 44 2d 6d 61 70 20 |defvar G|OLD-map |
|000006d0| 28 6d 61 6b 65 2d 6b 65 | 79 6d 61 70 29 20 28 23 |(make-ke|ymap) (#|
|000006e0| 24 20 2e 20 31 36 31 35 | 29 29 0a 23 40 36 38 20 |$ . 1615|)).#@68 |
|000006f0| 4d 61 70 73 20 74 68 65 | 20 66 75 6e 63 74 69 6f |Maps the| functio|
|00000700| 6e 20 6b 65 79 73 20 6f | 6e 20 74 68 65 20 56 54 |n keys o|n the VT|
|00000710| 31 30 30 20 6b 65 79 62 | 6f 61 72 64 20 70 72 65 |100 keyb|oard pre|
|00000720| 63 65 64 65 64 20 62 79 | 20 47 4f 4c 44 2d 43 53 |ceded by| GOLD-CS|
|00000730| 49 2e 1f 0a 28 64 65 66 | 76 61 72 20 47 4f 4c 44 |I...(def|var GOLD|
|00000740| 2d 43 53 49 2d 6d 61 70 | 20 28 6d 61 6b 65 2d 73 |-CSI-map| (make-s|
|00000750| 70 61 72 73 65 2d 6b 65 | 79 6d 61 70 29 20 28 23 |parse-ke|ymap) (#|
|00000760| 24 20 2e 20 31 37 37 36 | 29 29 0a 23 40 36 38 20 |$ . 1776|)).#@68 |
|00000770| 4d 61 70 73 20 74 68 65 | 20 66 75 6e 63 74 69 6f |Maps the| functio|
|00000780| 6e 20 6b 65 79 73 20 6f | 6e 20 74 68 65 20 56 54 |n keys o|n the VT|
|00000790| 31 30 30 20 6b 65 79 62 | 6f 61 72 64 20 70 72 65 |100 keyb|oard pre|
|000007a0| 63 65 64 65 64 20 62 79 | 20 47 4f 4c 44 2d 53 53 |ceded by| GOLD-SS|
|000007b0| 33 2e 1f 0a 28 64 65 66 | 76 61 72 20 47 4f 4c 44 |3...(def|var GOLD|
|000007c0| 2d 53 53 33 2d 6d 61 70 | 20 28 6d 61 6b 65 2d 73 |-SS3-map| (make-s|
|000007d0| 70 61 72 73 65 2d 6b 65 | 79 6d 61 70 29 20 28 23 |parse-ke|ymap) (#|
|000007e0| 24 20 2e 20 31 39 30 34 | 29 29 0a 23 40 32 34 20 |$ . 1904|)).#@24 |
|000007f0| 54 50 55 2d 65 64 74 20 | 67 6c 6f 62 61 6c 20 6b |TPU-edt |global k|
|00000800| 65 79 6d 61 70 2e 1f 0a | 28 64 65 66 76 61 72 20 |eymap...|(defvar |
|00000810| 74 70 75 2d 67 6c 6f 62 | 61 6c 2d 6d 61 70 20 6e |tpu-glob|al-map n|
|00000820| 69 6c 20 28 23 24 20 2e | 20 32 30 33 32 29 29 0a |il (#$ .| 2032)).|
|00000830| 23 40 32 35 20 4f 72 69 | 67 69 6e 61 6c 20 67 6c |#@25 Ori|ginal gl|
|00000840| 6f 62 61 6c 20 6b 65 79 | 6d 61 70 2e 1f 0a 28 64 |obal key|map...(d|
|00000850| 65 66 76 61 72 20 74 70 | 75 2d 6f 72 69 67 69 6e |efvar tp|u-origin|
|00000860| 61 6c 2d 67 6c 6f 62 61 | 6c 2d 6d 61 70 20 28 63 |al-globa|l-map (c|
|00000870| 6f 70 79 2d 6b 65 79 6d | 61 70 20 67 6c 6f 62 61 |opy-keym|ap globa|
|00000880| 6c 2d 6d 61 70 29 20 28 | 23 24 20 2e 20 32 31 30 |l-map) (|#$ . 210|
|00000890| 31 29 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |1)).(byt|e-code "|
|000008a0| 08 83 17 00 c1 c2 21 84 | 0d 00 c3 20 12 c2 5c 66 |......!.|... ..\f|
|000008b0| 42 14 c5 c2 c6 c7 23 88 | c1 87 22 20 5b 74 70 75 |B.....#.|.." [tpu|
|000008c0| 2d 6c 75 63 69 64 2d 65 | 6d 61 63 73 31 39 2d 70 |-lucid-e|macs19-p|
|000008d0| 20 62 6f 75 6e 64 70 20 | 6d 69 6e 69 62 75 66 66 | boundp |minibuff|
|000008e0| 65 72 2d 6c 6f 63 61 6c | 2d 6e 73 2d 6d 61 70 20 |er-local|-ns-map |
|000008f0| 6d 61 6b 65 2d 73 70 61 | 72 73 65 2d 6b 65 79 6d |make-spa|rse-keym|
|00000900| 61 70 20 63 75 72 72 65 | 6e 74 2d 6c 6f 61 64 2d |ap curre|nt-load-|
|00000910| 6c 69 73 74 20 70 75 74 | 20 76 61 72 69 61 62 6c |list put| variabl|
|00000920| 65 2d 64 6f 63 75 6d 65 | 6e 74 61 74 69 6f 6e 20 |e-docume|ntation |
|00000930| 22 48 61 63 6b 20 74 6f | 20 67 69 76 65 20 4c 75 |"Hack to| give Lu|
|00000940| 63 69 64 20 45 6d 61 63 | 73 20 74 68 65 20 73 61 |cid Emac|s the sa|
|00000950| 6d 65 20 6d 61 70 73 20 | 61 73 20 6f 72 64 69 6e |me maps |as ordin|
|00000960| 61 72 79 20 45 6d 61 63 | 73 2e 22 5d 20 34 29 0a |ary Emac|s."] 4).|
|00000970| 23 40 33 37 20 49 66 20 | 6e 6f 6e 2d 6e 69 6c 2c |#@37 If |non-nil,|
|00000980| 20 54 50 55 2d 65 64 74 | 20 6d 6f 64 65 20 69 73 | TPU-edt| mode is|
|00000990| 20 61 63 74 69 76 65 2e | 1f 0a 28 64 65 66 76 61 | active.|..(defva|
|000009a0| 72 20 74 70 75 2d 65 64 | 74 2d 6d 6f 64 65 20 6e |r tpu-ed|t-mode n|
|000009b0| 69 6c 20 28 23 24 20 2e | 20 32 34 32 31 29 29 0a |il (#$ .| 2421)).|
|000009c0| 23 40 34 39 20 4c 61 73 | 74 20 74 65 78 74 20 64 |#@49 Las|t text d|
|000009d0| 65 6c 65 74 65 64 20 62 | 79 20 61 20 54 50 55 2d |eleted b|y a TPU-|
|000009e0| 65 64 74 20 72 65 70 6c | 61 63 65 20 63 6f 6d 6d |edt repl|ace comm|
|000009f0| 61 6e 64 2e 1f 0a 28 64 | 65 66 76 61 72 20 74 70 |and...(d|efvar tp|
|00000a00| 75 2d 6c 61 73 74 2d 72 | 65 70 6c 61 63 65 64 2d |u-last-r|eplaced-|
|00000a10| 74 65 78 74 20 22 22 20 | 28 23 24 20 2e 20 32 35 |text "" |(#$ . 25|
|00000a20| 30 31 29 29 0a 23 40 34 | 38 20 4c 61 73 74 20 74 |01)).#@4|8 Last t|
|00000a30| 65 78 74 20 64 65 6c 65 | 74 65 64 20 62 79 20 61 |ext dele|ted by a|
|00000a40| 20 54 50 55 2d 65 64 74 | 20 72 65 6d 6f 76 65 20 | TPU-edt| remove |
|00000a50| 63 6f 6d 6d 61 6e 64 2e | 1f 0a 28 64 65 66 76 61 |command.|..(defva|
|00000a60| 72 20 74 70 75 2d 6c 61 | 73 74 2d 64 65 6c 65 74 |r tpu-la|st-delet|
|00000a70| 65 64 2d 72 65 67 69 6f | 6e 20 22 22 20 28 23 24 |ed-regio|n "" (#$|
|00000a80| 20 2e 20 32 36 30 32 29 | 29 0a 23 40 35 33 20 4c | . 2602)|).#@53 L|
|00000a90| 61 73 74 20 74 65 78 74 | 20 64 65 6c 65 74 65 64 |ast text| deleted|
|00000aa0| 20 62 79 20 61 20 54 50 | 55 2d 65 64 74 20 6c 69 | by a TP|U-edt li|
|00000ab0| 6e 65 2d 64 65 6c 65 74 | 65 20 63 6f 6d 6d 61 6e |ne-delet|e comman|
|00000ac0| 64 2e 1f 0a 28 64 65 66 | 76 61 72 20 74 70 75 2d |d...(def|var tpu-|
|00000ad0| 6c 61 73 74 2d 64 65 6c | 65 74 65 64 2d 6c 69 6e |last-del|eted-lin|
|00000ae0| 65 73 20 22 22 20 28 23 | 24 20 2e 20 32 37 30 33 |es "" (#|$ . 2703|
|00000af0| 29 29 0a 23 40 35 33 20 | 4c 61 73 74 20 74 65 78 |)).#@53 |Last tex|
|00000b00| 74 20 64 65 6c 65 74 65 | 64 20 62 79 20 61 20 54 |t delete|d by a T|
|00000b10| 50 55 2d 65 64 74 20 77 | 6f 72 64 2d 64 65 6c 65 |PU-edt w|ord-dele|
|00000b20| 74 65 20 63 6f 6d 6d 61 | 6e 64 2e 1f 0a 28 64 65 |te comma|nd...(de|
|00000b30| 66 76 61 72 20 74 70 75 | 2d 6c 61 73 74 2d 64 65 |fvar tpu|-last-de|
|00000b40| 6c 65 74 65 64 2d 77 6f | 72 64 73 20 22 22 20 28 |leted-wo|rds "" (|
|00000b50| 23 24 20 2e 20 32 38 30 | 38 29 29 0a 23 40 36 33 |#$ . 280|8)).#@63|
|00000b60| 20 4c 61 73 74 20 63 68 | 61 72 61 63 74 65 72 20 | Last ch|aracter |
|00000b70| 64 65 6c 65 74 65 64 20 | 62 79 20 61 20 54 50 55 |deleted |by a TPU|
|00000b80| 2d 65 64 74 20 63 68 61 | 72 61 63 74 65 72 2d 64 |-edt cha|racter-d|
|00000b90| 65 6c 65 74 65 20 63 6f | 6d 6d 61 6e 64 2e 1f 0a |elete co|mmand...|
|00000ba0| 28 64 65 66 76 61 72 20 | 74 70 75 2d 6c 61 73 74 |(defvar |tpu-last|
|00000bb0| 2d 64 65 6c 65 74 65 64 | 2d 63 68 61 72 20 22 22 |-deleted|-char ""|
|00000bc0| 20 28 23 24 20 2e 20 32 | 39 31 33 29 29 0a 23 40 | (#$ . 2|913)).#@|
|00000bd0| 36 30 20 49 66 20 6e 6f | 6e 2d 6e 69 6c 2c 20 54 |60 If no|n-nil, T|
|00000be0| 50 55 2d 65 64 74 20 69 | 73 20 73 65 61 72 63 68 |PU-edt i|s search|
|00000bf0| 69 6e 67 20 69 6e 20 74 | 68 65 20 66 6f 72 77 61 |ing in t|he forwa|
|00000c00| 72 64 20 64 69 72 65 63 | 74 69 6f 6e 2e 1f 0a 28 |rd direc|tion...(|
|00000c10| 64 65 66 76 61 72 20 74 | 70 75 2d 73 65 61 72 63 |defvar t|pu-searc|
|00000c20| 68 69 6e 67 2d 66 6f 72 | 77 61 72 64 20 74 20 28 |hing-for|ward t (|
|00000c30| 23 24 20 2e 20 33 30 32 | 37 29 29 0a 23 40 35 36 |#$ . 302|7)).#@56|
|00000c40| 20 4c 61 73 74 20 74 65 | 78 74 20 73 65 61 72 63 | Last te|xt searc|
|00000c50| 68 65 64 20 66 6f 72 20 | 62 79 20 74 68 65 20 54 |hed for |by the T|
|00000c60| 50 55 2d 65 64 74 20 73 | 65 61 72 63 68 20 63 6f |PU-edt s|earch co|
|00000c70| 6d 6d 61 6e 64 73 2e 1f | 0a 28 64 65 66 76 61 72 |mmands..|.(defvar|
|00000c80| 20 74 70 75 2d 73 65 61 | 72 63 68 2d 6c 61 73 74 | tpu-sea|rch-last|
|00000c90| 2d 73 74 72 69 6e 67 20 | 22 22 20 28 23 24 20 2e |-string |"" (#$ .|
|00000ca0| 20 33 31 33 37 29 29 0a | 23 40 36 32 20 49 66 20 | 3137)).|#@62 If |
|00000cb0| 6e 6f 6e 2d 6e 69 6c 2c | 20 54 50 55 2d 65 64 74 |non-nil,| TPU-edt|
|00000cc0| 20 75 73 65 73 20 72 65 | 67 65 78 70 20 73 65 61 | uses re|gexp sea|
|00000cd0| 72 63 68 20 61 6e 64 20 | 72 65 70 6c 61 63 65 20 |rch and |replace |
|00000ce0| 72 6f 75 74 69 6e 65 73 | 2e 1f 0a 28 64 65 66 76 |routines|...(defv|
|00000cf0| 61 72 20 74 70 75 2d 72 | 65 67 65 78 70 2d 70 20 |ar tpu-r|egexp-p |
|00000d00| 6e 69 6c 20 28 23 24 20 | 2e 20 33 32 34 35 29 29 |nil (#$ |. 3245))|
|00000d10| 0a 23 40 35 33 20 49 66 | 20 6e 6f 6e 2d 6e 69 6c |.#@53 If| non-nil|
|00000d20| 2c 20 54 50 55 2d 65 64 | 74 20 72 65 6d 6f 76 65 |, TPU-ed|t remove|
|00000d30| 73 20 61 6e 64 20 69 6e | 73 65 72 74 73 20 72 65 |s and in|serts re|
|00000d40| 63 74 61 6e 67 6c 65 73 | 2e 1f 0a 28 64 65 66 76 |ctangles|...(defv|
|00000d50| 61 72 20 74 70 75 2d 72 | 65 63 74 61 6e 67 75 6c |ar tpu-r|ectangul|
|00000d60| 61 72 2d 70 20 6e 69 6c | 20 28 23 24 20 2e 20 33 |ar-p nil| (#$ . 3|
|00000d70| 33 35 30 29 29 0a 23 40 | 35 38 20 54 72 75 65 20 |350)).#@|58 True |
|00000d80| 77 68 65 6e 20 54 50 55 | 2d 65 64 74 20 69 73 20 |when TPU|-edt is |
|00000d90| 6f 70 65 72 61 74 69 6e | 67 20 69 6e 20 74 68 65 |operatin|g in the|
|00000da0| 20 66 6f 72 77 61 72 64 | 20 64 69 72 65 63 74 69 | forward| directi|
|00000db0| 6f 6e 2e 1f 0a 28 64 65 | 66 76 61 72 20 74 70 75 |on...(de|fvar tpu|
|00000dc0| 2d 61 64 76 61 6e 63 65 | 20 74 20 28 23 24 20 2e |-advance| t (#$ .|
|00000dd0| 20 33 34 35 31 29 29 0a | 23 40 35 39 20 54 72 75 | 3451)).|#@59 Tru|
|00000de0| 65 20 77 68 65 6e 20 54 | 50 55 2d 65 64 74 20 69 |e when T|PU-edt i|
|00000df0| 73 20 6f 70 65 72 61 74 | 69 6e 67 20 69 6e 20 74 |s operat|ing in t|
|00000e00| 68 65 20 62 61 63 6b 77 | 61 72 64 20 64 69 72 65 |he backw|ard dire|
|00000e10| 63 74 69 6f 6e 2e 1f 0a | 28 64 65 66 76 61 72 20 |ction...|(defvar |
|00000e20| 74 70 75 2d 72 65 76 65 | 72 73 65 20 6e 69 6c 20 |tpu-reve|rse nil |
|00000e30| 28 23 24 20 2e 20 33 35 | 34 39 29 29 0a 23 40 36 |(#$ . 35|49)).#@6|
|00000e40| 30 20 49 66 20 6e 6f 6e | 2d 6e 69 6c 2c 20 63 6f |0 If non|-nil, co|
|00000e50| 6e 74 72 6f 6c 20 6b 65 | 79 73 20 61 72 65 20 73 |ntrol ke|ys are s|
|00000e60| 65 74 20 74 6f 20 70 65 | 72 66 6f 72 6d 20 54 50 |et to pe|rform TP|
|00000e70| 55 20 66 75 6e 63 74 69 | 6f 6e 73 2e 1f 0a 28 64 |U functi|ons...(d|
|00000e80| 65 66 76 61 72 20 74 70 | 75 2d 63 6f 6e 74 72 6f |efvar tp|u-contro|
|00000e90| 6c 2d 6b 65 79 73 20 6e | 69 6c 20 28 23 24 20 2e |l-keys n|il (#$ .|
|00000ea0| 20 33 36 35 30 29 29 0a | 23 40 33 36 20 46 69 6c | 3650)).|#@36 Fil|
|00000eb0| 65 20 63 6f 6e 74 61 69 | 6e 69 6e 67 20 54 50 55 |e contai|ning TPU|
|00000ec0| 2d 65 64 74 20 58 20 6b | 65 79 20 6d 61 70 2e 1f |-edt X k|ey map..|
|00000ed0| 0a 28 64 65 66 76 61 72 | 20 74 70 75 2d 78 6b 65 |.(defvar| tpu-xke|
|00000ee0| 79 73 2d 66 69 6c 65 20 | 6e 69 6c 20 28 23 24 20 |ys-file |nil (#$ |
|00000ef0| 2e 20 33 37 35 37 29 29 | 0a 23 40 34 38 20 4d 6f |. 3757))|.#@48 Mo|
|00000f00| 64 65 20 6c 69 6e 65 20 | 73 74 72 69 6e 67 20 74 |de line |string t|
|00000f10| 6f 20 69 64 65 6e 74 69 | 66 79 20 72 65 63 74 61 |o identi|fy recta|
|00000f20| 6e 67 75 6c 61 72 20 6d | 6f 64 65 2e 1f 0a 28 64 |ngular m|ode...(d|
|00000f30| 65 66 76 61 72 20 74 70 | 75 2d 72 65 63 74 61 6e |efvar tp|u-rectan|
|00000f40| 67 6c 65 2d 73 74 72 69 | 6e 67 20 6e 69 6c 20 28 |gle-stri|ng nil (|
|00000f50| 23 24 20 2e 20 33 38 33 | 38 29 29 0a 23 40 34 39 |#$ . 383|8)).#@49|
|00000f60| 20 4d 6f 64 65 20 6c 69 | 6e 65 20 73 74 72 69 6e | Mode li|ne strin|
|00000f70| 67 20 74 6f 20 69 64 65 | 6e 74 69 66 79 20 63 75 |g to ide|ntify cu|
|00000f80| 72 72 65 6e 74 20 64 69 | 72 65 63 74 69 6f 6e 2e |rrent di|rection.|
|00000f90| 1f 0a 28 64 65 66 76 61 | 72 20 74 70 75 2d 64 69 |..(defva|r tpu-di|
|00000fa0| 72 65 63 74 69 6f 6e 2d | 73 74 72 69 6e 67 20 6e |rection-|string n|
|00000fb0| 69 6c 20 28 23 24 20 2e | 20 33 39 33 37 29 29 0a |il (#$ .| 3937)).|
|00000fc0| 23 40 35 31 20 48 69 73 | 74 6f 72 79 20 76 61 72 |#@51 His|tory var|
|00000fd0| 69 61 62 6c 65 20 66 6f | 72 20 74 70 75 2d 65 64 |iable fo|r tpu-ed|
|00000fe0| 74 2d 61 64 64 2d 61 74 | 2d 62 6f 6c 20 66 75 6e |t-add-at|-bol fun|
|00000ff0| 63 74 69 6f 6e 2e 1f 0a | 28 64 65 66 76 61 72 20 |ction...|(defvar |
|00001000| 74 70 75 2d 61 64 64 2d | 61 74 2d 62 6f 6c 2d 68 |tpu-add-|at-bol-h|
|00001010| 69 73 74 20 6e 69 6c 20 | 28 23 24 20 2e 20 34 30 |ist nil |(#$ . 40|
|00001020| 33 37 29 29 0a 23 40 35 | 31 20 48 69 73 74 6f 72 |37)).#@5|1 Histor|
|00001030| 79 20 76 61 72 69 61 62 | 6c 65 20 66 6f 72 20 74 |y variab|le for t|
|00001040| 70 75 2d 65 64 74 2d 61 | 64 64 2d 61 74 2d 65 6f |pu-edt-a|dd-at-eo|
|00001050| 6c 20 66 75 6e 63 74 69 | 6f 6e 2e 1f 0a 28 64 65 |l functi|on...(de|
|00001060| 66 76 61 72 20 74 70 75 | 2d 61 64 64 2d 61 74 2d |fvar tpu|-add-at-|
|00001070| 65 6f 6c 2d 68 69 73 74 | 20 6e 69 6c 20 28 23 24 |eol-hist| nil (#$|
|00001080| 20 2e 20 34 31 33 38 29 | 29 0a 23 40 35 32 20 48 | . 4138)|).#@52 H|
|00001090| 69 73 74 6f 72 79 20 76 | 61 72 69 61 62 6c 65 20 |istory v|ariable |
|000010a0| 66 6f 72 20 73 65 61 72 | 63 68 20 61 6e 64 20 72 |for sear|ch and r|
|000010b0| 65 70 6c 61 63 65 20 66 | 75 6e 63 74 69 6f 6e 73 |eplace f|unctions|
|000010c0| 2e 1f 0a 28 64 65 66 76 | 61 72 20 74 70 75 2d 72 |...(defv|ar tpu-r|
|000010d0| 65 67 65 78 70 2d 70 72 | 6f 6d 70 74 2d 68 69 73 |egexp-pr|ompt-his|
|000010e0| 74 20 6e 69 6c 20 28 23 | 24 20 2e 20 34 32 33 39 |t nil (#|$ . 4239|
|000010f0| 29 29 0a 23 40 35 32 20 | 49 66 20 6e 6f 6e 2d 6e |)).#@52 |If non-n|
|00001100| 69 6c 2c 20 52 65 74 75 | 72 6e 20 70 72 6f 64 75 |il, Retu|rn produ|
|00001110| 63 65 73 20 61 20 6e 65 | 77 6c 69 6e 65 20 61 6e |ces a ne|wline an|
|00001120| 64 20 69 6e 64 65 6e 74 | 73 2e 1f 0a 28 64 65 66 |d indent|s...(def|
|00001130| 76 61 72 20 74 70 75 2d | 6e 65 77 6c 69 6e 65 2d |var tpu-|newline-|
|00001140| 61 6e 64 2d 69 6e 64 65 | 6e 74 2d 70 20 6e 69 6c |and-inde|nt-p nil|
|00001150| 20 28 23 24 20 2e 20 34 | 33 34 34 29 29 0a 28 6d | (#$ . 4|344)).(m|
|00001160| 61 6b 65 2d 76 61 72 69 | 61 62 6c 65 2d 62 75 66 |ake-vari|able-buf|
|00001170| 66 65 72 2d 6c 6f 63 61 | 6c 20 28 71 75 6f 74 65 |fer-loca|l (quote|
|00001180| 20 74 70 75 2d 6e 65 77 | 6c 69 6e 65 2d 61 6e 64 | tpu-new|line-and|
|00001190| 2d 69 6e 64 65 6e 74 2d | 70 29 29 0a 23 40 34 37 |-indent-|p)).#@47|
|000011a0| 20 4d 6f 64 65 20 6c 69 | 6e 65 20 73 74 72 69 6e | Mode li|ne strin|
|000011b0| 67 20 74 6f 20 69 64 65 | 6e 74 69 66 79 20 41 75 |g to ide|ntify Au|
|000011c0| 74 6f 49 6e 64 65 6e 74 | 20 6d 6f 64 65 2e 1f 0a |toIndent| mode...|
|000011d0| 28 64 65 66 76 61 72 20 | 74 70 75 2d 6e 65 77 6c |(defvar |tpu-newl|
|000011e0| 69 6e 65 2d 61 6e 64 2d | 69 6e 64 65 6e 74 2d 73 |ine-and-|indent-s|
|000011f0| 74 72 69 6e 67 20 6e 69 | 6c 20 28 23 24 20 2e 20 |tring ni|l (#$ . |
|00001200| 34 35 31 33 29 29 0a 28 | 6d 61 6b 65 2d 76 61 72 |4513)).(|make-var|
|00001210| 69 61 62 6c 65 2d 62 75 | 66 66 65 72 2d 6c 6f 63 |iable-bu|ffer-loc|
|00001220| 61 6c 20 28 71 75 6f 74 | 65 20 74 70 75 2d 6e 65 |al (quot|e tpu-ne|
|00001230| 77 6c 69 6e 65 2d 61 6e | 64 2d 69 6e 64 65 6e 74 |wline-an|d-indent|
|00001240| 2d 73 74 72 69 6e 67 29 | 29 0a 23 40 33 32 20 53 |-string)|).#@32 S|
|00001250| 61 76 65 64 20 76 61 6c | 75 65 20 6f 66 20 74 68 |aved val|ue of th|
|00001260| 65 20 64 65 6c 65 74 65 | 20 6b 65 79 2e 1f 0a 28 |e delete| key...(|
|00001270| 64 65 66 76 61 72 20 74 | 70 75 2d 73 61 76 65 64 |defvar t|pu-saved|
|00001280| 2d 64 65 6c 65 74 65 2d | 66 75 6e 63 20 6e 69 6c |-delete-|func nil|
|00001290| 20 28 23 24 20 2e 20 34 | 36 38 37 29 29 0a 28 6d | (#$ . 4|687)).(m|
|000012a0| 61 6b 65 2d 76 61 72 69 | 61 62 6c 65 2d 62 75 66 |ake-vari|able-buf|
|000012b0| 66 65 72 2d 6c 6f 63 61 | 6c 20 28 71 75 6f 74 65 |fer-loca|l (quote|
|000012c0| 20 74 70 75 2d 73 61 76 | 65 64 2d 64 65 6c 65 74 | tpu-sav|ed-delet|
|000012d0| 65 2d 66 75 6e 63 29 29 | 0a 23 40 33 31 20 54 50 |e-func))|.#@31 TP|
|000012e0| 55 2d 65 64 74 20 62 75 | 66 66 65 72 20 6c 6f 63 |U-edt bu|ffer loc|
|000012f0| 61 6c 20 6b 65 79 20 6d | 61 70 2e 1f 0a 28 64 65 |al key m|ap...(de|
|00001300| 66 76 61 72 20 74 70 75 | 2d 62 75 66 66 65 72 2d |fvar tpu|-buffer-|
|00001310| 6c 6f 63 61 6c 2d 6d 61 | 70 20 6e 69 6c 20 28 23 |local-ma|p nil (#|
|00001320| 24 20 2e 20 34 38 33 30 | 29 29 0a 28 62 79 74 65 |$ . 4830|)).(byte|
|00001330| 2d 63 6f 64 65 20 22 c0 | c1 21 88 c2 c3 21 84 5c |-code ".|.!...!.\|
|00001340| 66 00 5c 66 13 c3 0d 42 | 15 c2 c6 21 84 1a 00 0e |f.\f...B|...!....|
|00001350| 07 16 06 c6 0d 42 15 c2 | c8 21 84 27 00 c9 16 08 |.....B..|.!.'....|
|00001360| c8 0d 42 15 c0 c8 21 87 | 22 20 5b 6d 61 6b 65 2d |..B...!.|" [make-|
|00001370| 76 61 72 69 61 62 6c 65 | 2d 62 75 66 66 65 72 2d |variable|-buffer-|
|00001380| 6c 6f 63 61 6c 20 74 70 | 75 2d 62 75 66 66 65 72 |local tp|u-buffer|
|00001390| 2d 6c 6f 63 61 6c 2d 6d | 61 70 20 62 6f 75 6e 64 |-local-m|ap bound|
|000013a0| 70 20 74 70 75 2d 6f 72 | 69 67 69 6e 61 6c 2d 6d |p tpu-or|iginal-m|
|000013b0| 6f 64 65 2d 6c 69 6e 65 | 20 6d 6f 64 65 2d 6c 69 |ode-line| mode-li|
|000013c0| 6e 65 2d 66 6f 72 6d 61 | 74 20 63 75 72 72 65 6e |ne-forma|t curren|
|000013d0| 74 2d 6c 6f 61 64 2d 6c | 69 73 74 20 74 70 75 2d |t-load-l|ist tpu-|
|000013e0| 6f 72 69 67 69 6e 61 6c | 2d 6d 6d 2d 61 6c 69 73 |original|-mm-alis|
|000013f0| 74 20 6d 69 6e 6f 72 2d | 6d 6f 64 65 2d 61 6c 69 |t minor-|mode-ali|
|00001400| 73 74 20 74 70 75 2d 6d | 61 72 6b 2d 66 6c 61 67 |st tpu-m|ark-flag|
|00001410| 20 22 20 22 5d 20 32 29 | 0a 23 40 35 37 20 53 65 | " "] 2)|.#@57 Se|
|00001420| 74 20 74 68 65 20 6d 6f | 64 65 20 66 6f 72 20 54 |t the mo|de for T|
|00001430| 50 55 2d 65 64 74 2c 20 | 6f 72 20 72 65 73 65 74 |PU-edt, |or reset|
|00001440| 20 69 74 20 74 6f 20 64 | 65 66 61 75 6c 74 20 45 | it to d|efault E|
|00001450| 6d 61 63 73 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |macs...(|defalias|
|00001460| 20 27 74 70 75 2d 73 65 | 74 2d 6d 6f 64 65 2d 6c | 'tpu-se|t-mode-l|
|00001470| 69 6e 65 20 23 5b 28 66 | 6f 72 2d 74 70 75 29 20 |ine #[(f|or-tpu) |
|00001480| 22 08 84 5c 6e 00 09 12 | 0b 89 14 87 c5 c2 c6 c7 |"..\n...|........|
|00001490| 21 c8 c9 c6 ca 21 cb c6 | ca 21 cc c6 cd 21 ce cf |!....!..|.!...!..|
|000014a0| c4 c6 d0 21 c6 d1 21 c6 | d2 21 c6 d3 21 c6 d4 21 |...!..!.|.!..!..!|
|000014b0| c6 d5 21 af 11 5c 22 88 | d6 5c 66 9e 84 3f 00 d7 |..!..\".|.\f..?..|
|000014c0| 5c 66 42 14 d8 5c 66 9e | 84 49 00 d9 5c 66 42 14 |\fB..\f.|.I..\fB.|
|000014d0| da 5c 66 9e 86 54 00 db | 5c 66 42 89 14 87 22 20 |.\f..T..|\fB..." |
|000014e0| 5b 66 6f 72 2d 74 70 75 | 20 74 70 75 2d 6f 72 69 |[for-tpu| tpu-ori|
|000014f0| 67 69 6e 61 6c 2d 6d 6f | 64 65 2d 6c 69 6e 65 20 |ginal-mo|de-line |
|00001500| 6d 6f 64 65 2d 6c 69 6e | 65 2d 66 6f 72 6d 61 74 |mode-lin|e-format|
|00001510| 20 74 70 75 2d 6f 72 69 | 67 69 6e 61 6c 2d 6d 6d | tpu-ori|ginal-mm|
|00001520| 2d 61 6c 69 73 74 20 6d | 69 6e 6f 72 2d 6d 6f 64 |-alist m|inor-mod|
|00001530| 65 2d 61 6c 69 73 74 20 | 73 65 74 2d 64 65 66 61 |e-alist |set-defa|
|00001540| 75 6c 74 20 70 75 72 65 | 63 6f 70 79 20 22 22 20 |ult pure|copy "" |
|00001550| 6d 6f 64 65 2d 6c 69 6e | 65 2d 6d 6f 64 69 66 69 |mode-lin|e-modifi|
|00001560| 65 64 20 6d 6f 64 65 2d | 6c 69 6e 65 2d 62 75 66 |ed mode-|line-buf|
|00001570| 66 65 72 2d 69 64 65 6e | 74 69 66 69 63 61 74 69 |fer-iden|tificati|
|00001580| 6f 6e 20 22 20 20 22 20 | 67 6c 6f 62 61 6c 2d 6d |on " " |global-m|
|00001590| 6f 64 65 2d 73 74 72 69 | 6e 67 20 74 70 75 2d 6d |ode-stri|ng tpu-m|
|000015a0| 61 72 6b 2d 66 6c 61 67 | 20 22 20 25 5b 28 22 20 |ark-flag| " %[(" |
|000015b0| 6d 6f 64 65 2d 6e 61 6d | 65 20 6d 6f 64 65 2d 6c |mode-nam|e mode-l|
|000015c0| 69 6e 65 2d 70 72 6f 63 | 65 73 73 20 22 25 6e 22 |ine-proc|ess "%n"|
|000015d0| 20 22 29 25 5d 2d 2d 22 | 20 28 6c 69 6e 65 2d 6e | ")%]--"| (line-n|
|000015e0| 75 6d 62 65 72 2d 6d 6f | 64 65 20 22 4c 25 6c 2d |umber-mo|de "L%l-|
|000015f0| 2d 22 29 20 28 63 6f 6c | 75 6d 6e 2d 6e 75 6d 62 |-") (col|umn-numb|
|00001600| 65 72 2d 6d 6f 64 65 20 | 22 43 25 63 2d 2d 22 29 |er-mode |"C%c--")|
|00001610| 20 28 2d 33 20 2e 20 22 | 25 70 22 29 20 22 2d 25 | (-3 . "|%p") "-%|
|00001620| 2d 22 20 74 70 75 2d 6e | 65 77 6c 69 6e 65 2d 61 |-" tpu-n|ewline-a|
|00001630| 6e 64 2d 69 6e 64 65 6e | 74 2d 70 20 28 74 70 75 |nd-inden|t-p (tpu|
|00001640| 2d 6e 65 77 6c 69 6e 65 | 2d 61 6e 64 2d 69 6e 64 |-newline|-and-ind|
|00001650| 65 6e 74 2d 70 20 74 70 | 75 2d 6e 65 77 6c 69 6e |ent-p tp|u-newlin|
|00001660| 65 2d 61 6e 64 2d 69 6e | 64 65 6e 74 2d 73 74 72 |e-and-in|dent-str|
|00001670| 69 6e 67 29 20 74 70 75 | 2d 72 65 63 74 61 6e 67 |ing) tpu|-rectang|
|00001680| 75 6c 61 72 2d 70 20 28 | 74 70 75 2d 72 65 63 74 |ular-p (|tpu-rect|
|00001690| 61 6e 67 75 6c 61 72 2d | 70 20 74 70 75 2d 72 65 |angular-|p tpu-re|
|000016a0| 63 74 61 6e 67 6c 65 2d | 73 74 72 69 6e 67 29 20 |ctangle-|string) |
|000016b0| 74 70 75 2d 64 69 72 65 | 63 74 69 6f 6e 2d 73 74 |tpu-dire|ction-st|
|000016c0| 72 69 6e 67 20 28 74 70 | 75 2d 64 69 72 65 63 74 |ring (tp|u-direct|
|000016d0| 69 6f 6e 2d 73 74 72 69 | 6e 67 20 74 70 75 2d 64 |ion-stri|ng tpu-d|
|000016e0| 69 72 65 63 74 69 6f 6e | 2d 73 74 72 69 6e 67 29 |irection|-string)|
|000016f0| 5d 20 32 30 20 28 23 24 | 20 2e 20 35 31 35 30 29 |] 20 (#$| . 5150)|
|00001700| 5d 29 0a 23 40 36 35 20 | 4d 61 6b 65 20 73 75 72 |]).#@65 |Make sur|
|00001710| 65 20 6d 6f 64 65 2d 6c | 69 6e 65 20 69 6e 20 74 |e mode-l|ine in t|
|00001720| 68 65 20 63 75 72 72 65 | 6e 74 20 62 75 66 66 65 |he curre|nt buffe|
|00001730| 72 20 72 65 66 6c 65 63 | 74 73 20 61 6c 6c 20 63 |r reflec|ts all c|
|00001740| 68 61 6e 67 65 73 2e 1f | 0a 28 64 65 66 61 6c 69 |hanges..|.(defali|
|00001750| 61 73 20 27 74 70 75 2d | 75 70 64 61 74 65 2d 6d |as 'tpu-|update-m|
|00001760| 6f 64 65 2d 6c 69 6e 65 | 20 23 5b 6e 69 6c 20 22 |ode-line| #[nil "|
|00001770| c0 20 83 09 00 c1 82 5c | 6e 00 c2 13 5c 66 83 12 |. .....\|n...\f..|
|00001780| 00 c5 20 87 c6 c7 20 21 | 88 c8 c9 21 87 22 20 5b |.. ... !|...!." [|
|00001790| 74 70 75 2d 6d 61 72 6b | 20 22 4d 22 20 22 20 22 |tpu-mark| "M" " "|
|000017a0| 20 74 70 75 2d 6d 61 72 | 6b 2d 66 6c 61 67 20 74 | tpu-mar|k-flag t|
|000017b0| 70 75 2d 65 6d 61 63 73 | 31 39 2d 70 20 66 6f 72 |pu-emacs|19-p for|
|000017c0| 63 65 2d 6d 6f 64 65 2d | 6c 69 6e 65 2d 75 70 64 |ce-mode-|line-upd|
|000017d0| 61 74 65 20 73 65 74 2d | 62 75 66 66 65 72 2d 6d |ate set-|buffer-m|
|000017e0| 6f 64 69 66 69 65 64 2d | 70 20 62 75 66 66 65 72 |odified-|p buffer|
|000017f0| 2d 6d 6f 64 69 66 69 65 | 64 2d 70 20 73 69 74 2d |-modifie|d-p sit-|
|00001800| 66 6f 72 20 30 5d 20 32 | 20 28 23 24 20 2e 20 35 |for 0] 2| (#$ . 5|
|00001810| 38 39 36 29 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |896)]).(|byte-cod|
|00001820| 65 20 22 08 83 11 00 c1 | c2 c3 5c 22 88 c1 c4 c3 |e ".....|..\"....|
|00001830| 5c 22 88 82 1f 00 0d 83 | 1f 00 c1 c6 c3 5c 22 88 |\"......|.....\".|
|00001840| c1 c7 c3 5c 22 88 c8 c9 | 21 84 29 00 ca 20 16 09 |...\"...|!.).. ..|
|00001850| c9 0e 0b 42 16 0b c8 cc | 21 84 39 00 ca 20 16 5c |...B....|!.9.. .\|
|00001860| 66 cc 0e 0b 42 16 0b c1 | 87 22 20 5b 74 70 75 2d |f...B...|." [tpu-|
|00001870| 6c 75 63 69 64 2d 65 6d | 61 63 73 31 39 2d 70 20 |lucid-em|acs19-p |
|00001880| 61 64 64 2d 68 6f 6f 6b | 20 7a 6d 61 63 73 2d 64 |add-hook| zmacs-d|
|00001890| 65 61 63 74 69 76 61 74 | 65 2d 72 65 67 69 6f 6e |eactivat|e-region|
|000018a0| 2d 68 6f 6f 6b 20 74 70 | 75 2d 75 70 64 61 74 65 |-hook tp|u-update|
|000018b0| 2d 6d 6f 64 65 2d 6c 69 | 6e 65 20 7a 6d 61 63 73 |-mode-li|ne zmacs|
|000018c0| 2d 61 63 74 69 76 61 74 | 65 2d 72 65 67 69 6f 6e |-activat|e-region|
|000018d0| 2d 68 6f 6f 6b 20 74 70 | 75 2d 65 6d 61 63 73 31 |-hook tp|u-emacs1|
|000018e0| 39 2d 70 20 61 63 74 69 | 76 61 74 65 2d 6d 61 72 |9-p acti|vate-mar|
|000018f0| 6b 2d 68 6f 6f 6b 20 64 | 65 61 63 74 69 76 61 74 |k-hook d|eactivat|
|00001900| 65 2d 6d 61 72 6b 2d 68 | 6f 6f 6b 20 62 6f 75 6e |e-mark-h|ook boun|
|00001910| 64 70 20 74 70 75 2d 6d | 61 74 63 68 2d 62 65 67 |dp tpu-m|atch-beg|
|00001920| 69 6e 6e 69 6e 67 2d 6d | 61 72 6b 20 6d 61 6b 65 |inning-m|ark make|
|00001930| 2d 6d 61 72 6b 65 72 20 | 63 75 72 72 65 6e 74 2d |-marker |current-|
|00001940| 6c 6f 61 64 2d 6c 69 73 | 74 20 74 70 75 2d 6d 61 |load-lis|t tpu-ma|
|00001950| 74 63 68 2d 65 6e 64 2d | 6d 61 72 6b 5d 20 33 29 |tch-end-|mark] 3)|
|00001960| 0a 23 40 34 31 20 53 65 | 74 20 6d 61 72 6b 65 72 |.#@41 Se|t marker|
|00001970| 73 20 61 74 20 6d 61 74 | 63 68 20 62 65 67 69 6e |s at mat|ch begin|
|00001980| 6e 69 6e 67 20 61 6e 64 | 20 65 6e 64 2e 1f 0a 28 |ning and| end...(|
|00001990| 64 65 66 61 6c 69 61 73 | 20 27 74 70 75 2d 73 65 |defalias| 'tpu-se|
|000019a0| 74 2d 6d 61 74 63 68 20 | 23 5b 6e 69 6c 20 22 c0 |t-match |#[nil ".|
|000019b0| c1 94 54 21 12 c0 c1 95 | 21 89 13 87 22 20 5b 63 |..T!....|!..." [c|
|000019c0| 6f 70 79 2d 6d 61 72 6b | 65 72 20 30 20 74 70 75 |opy-mark|er 0 tpu|
|000019d0| 2d 6d 61 74 63 68 2d 62 | 65 67 69 6e 6e 69 6e 67 |-match-b|eginning|
|000019e0| 2d 6d 61 72 6b 20 74 70 | 75 2d 6d 61 74 63 68 2d |-mark tp|u-match-|
|000019f0| 65 6e 64 2d 6d 61 72 6b | 5d 20 32 20 28 23 24 20 |end-mark|] 2 (#$ |
|00001a00| 2e 20 36 35 30 32 29 5d | 29 0a 23 40 34 30 20 55 |. 6502)]|).#@40 U|
|00001a10| 6e 73 65 74 20 6d 61 74 | 63 68 20 62 65 67 69 6e |nset mat|ch begin|
|00001a20| 6e 69 6e 67 20 61 6e 64 | 20 65 6e 64 20 6d 61 72 |ning and| end mar|
|00001a30| 6b 65 72 73 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |kers...(|defalias|
|00001a40| 20 27 74 70 75 2d 75 6e | 73 65 74 2d 6d 61 74 63 | 'tpu-un|set-matc|
|00001a50| 68 20 23 5b 6e 69 6c 20 | 22 08 c1 89 93 88 5c 6e |h #[nil |".....\n|
|00001a60| c1 89 93 87 22 20 5b 74 | 70 75 2d 6d 61 74 63 68 |...." [t|pu-match|
|00001a70| 2d 62 65 67 69 6e 6e 69 | 6e 67 2d 6d 61 72 6b 20 |-beginni|ng-mark |
|00001a80| 6e 69 6c 20 74 70 75 2d | 6d 61 74 63 68 2d 65 6e |nil tpu-|match-en|
|00001a90| 64 2d 6d 61 72 6b 5d 20 | 33 20 28 23 24 20 2e 20 |d-mark] |3 (#$ . |
|00001aa0| 36 36 37 31 29 5d 29 0a | 23 40 35 31 20 52 65 74 |6671)]).|#@51 Ret|
|00001ab0| 75 72 6e 73 20 74 68 65 | 20 6c 6f 63 61 74 69 6f |urns the| locatio|
|00001ac0| 6e 20 6f 66 20 74 68 65 | 20 6c 61 73 74 20 6d 61 |n of the| last ma|
|00001ad0| 74 63 68 20 62 65 67 69 | 6e 6e 69 6e 67 2e 1f 0a |tch begi|nning...|
|00001ae0| 28 64 65 66 61 6c 69 61 | 73 20 27 74 70 75 2d 6d |(defalia|s 'tpu-m|
|00001af0| 61 74 63 68 2d 62 65 67 | 69 6e 6e 69 6e 67 20 23 |atch-beg|inning #|
|00001b00| 5b 6e 69 6c 20 22 c0 09 | 21 53 87 22 20 5b 6d 61 |[nil "..|!S." [ma|
|00001b10| 72 6b 65 72 2d 70 6f 73 | 69 74 69 6f 6e 20 74 70 |rker-pos|ition tp|
|00001b20| 75 2d 6d 61 74 63 68 2d | 62 65 67 69 6e 6e 69 6e |u-match-|beginnin|
|00001b30| 67 2d 6d 61 72 6b 5d 20 | 32 20 28 23 24 20 2e 20 |g-mark] |2 (#$ . |
|00001b40| 36 38 32 39 29 5d 29 0a | 23 40 34 35 20 52 65 74 |6829)]).|#@45 Ret|
|00001b50| 75 72 6e 73 20 74 68 65 | 20 6c 6f 63 61 74 69 6f |urns the| locatio|
|00001b60| 6e 20 6f 66 20 74 68 65 | 20 6c 61 73 74 20 6d 61 |n of the| last ma|
|00001b70| 74 63 68 20 65 6e 64 2e | 1f 0a 28 64 65 66 61 6c |tch end.|..(defal|
|00001b80| 69 61 73 20 27 74 70 75 | 2d 6d 61 74 63 68 2d 65 |ias 'tpu|-match-e|
|00001b90| 6e 64 20 23 5b 6e 69 6c | 20 22 c0 09 21 87 22 20 |nd #[nil| "..!." |
|00001ba0| 5b 6d 61 72 6b 65 72 2d | 70 6f 73 69 74 69 6f 6e |[marker-|position|
|00001bb0| 20 74 70 75 2d 6d 61 74 | 63 68 2d 65 6e 64 2d 6d | tpu-mat|ch-end-m|
|00001bc0| 61 72 6b 5d 20 32 20 28 | 23 24 20 2e 20 36 39 38 |ark] 2 (|#$ . 698|
|00001bd0| 39 29 5d 29 0a 23 40 31 | 31 31 20 52 65 74 75 72 |9)]).#@1|11 Retur|
|00001be0| 6e 73 20 74 20 69 66 20 | 70 6f 69 6e 74 20 69 73 |ns t if |point is|
|00001bf0| 20 62 65 74 77 65 65 6e | 20 74 70 75 2d 6d 61 74 | between| tpu-mat|
|00001c00| 63 68 20 6d 61 72 6b 65 | 72 73 2e 0a 4f 74 68 65 |ch marke|rs..Othe|
|00001c10| 72 77 69 73 65 20 73 65 | 74 73 20 74 68 65 20 74 |rwise se|ts the t|
|00001c20| 70 75 2d 6d 61 74 63 68 | 20 6d 61 72 6b 65 72 73 |pu-match| markers|
|00001c30| 20 74 6f 20 6e 69 6c 20 | 61 6e 64 20 72 65 74 75 | to nil |and retu|
|00001c40| 72 6e 73 20 6e 69 6c 2e | 1f 0a 28 64 65 66 61 6c |rns nil.|..(defal|
|00001c50| 69 61 73 20 27 74 70 75 | 2d 63 68 65 63 6b 2d 6d |ias 'tpu|-check-m|
|00001c60| 61 74 63 68 20 23 5b 6e | 69 6c 20 22 c0 09 21 70 |atch #[n|il "..!p|
|00001c70| 9a 83 2e 00 60 c2 09 21 | 53 59 83 2e 00 60 c2 0b |....`..!|SY...`..|
|00001c80| 21 57 84 2c 00 c2 09 21 | 53 c2 0b 21 55 83 2e 00 |!W.,...!|S..!U...|
|00001c90| c2 0b 21 60 55 83 2e 00 | c4 87 c5 20 88 c6 87 22 |..!`U...|... ..."|
|00001ca0| 20 5b 6d 61 72 6b 65 72 | 2d 62 75 66 66 65 72 20 | [marker|-buffer |
|00001cb0| 74 70 75 2d 6d 61 74 63 | 68 2d 62 65 67 69 6e 6e |tpu-matc|h-beginn|
|00001cc0| 69 6e 67 2d 6d 61 72 6b | 20 6d 61 72 6b 65 72 2d |ing-mark| marker-|
|00001cd0| 70 6f 73 69 74 69 6f 6e | 20 74 70 75 2d 6d 61 74 |position| tpu-mat|
|00001ce0| 63 68 2d 65 6e 64 2d 6d | 61 72 6b 20 74 20 74 70 |ch-end-m|ark t tp|
|00001cf0| 75 2d 75 6e 73 65 74 2d | 6d 61 74 63 68 20 6e 69 |u-unset-|match ni|
|00001d00| 6c 5d 20 33 20 28 23 24 | 20 2e 20 37 31 33 31 29 |l] 3 (#$| . 7131)|
|00001d10| 5d 29 0a 23 40 33 39 20 | 53 68 6f 77 20 74 68 65 |]).#@39 |Show the|
|00001d20| 20 76 61 6c 75 65 73 20 | 6f 66 20 74 68 65 20 6d | values |of the m|
|00001d30| 61 74 63 68 20 6d 61 72 | 6b 65 72 73 2e 1f 0a 28 |atch mar|kers...(|
|00001d40| 64 65 66 61 6c 69 61 73 | 20 27 74 70 75 2d 73 68 |defalias| 'tpu-sh|
|00001d50| 6f 77 2d 6d 61 74 63 68 | 2d 6d 61 72 6b 65 72 73 |ow-match|-markers|
|00001d60| 20 23 5b 6e 69 6c 20 22 | c0 09 21 85 1f 00 c2 09 | #[nil "|..!.....|
|00001d70| 21 1b c4 c5 0b 85 12 00 | 0b 53 c2 0e 06 21 c7 0e |!.......|.S...!..|
|00001d80| 06 21 60 70 26 06 29 87 | 22 20 5b 6d 61 72 6b 65 |.!`p&.).|" [marke|
|00001d90| 72 70 20 74 70 75 2d 6d | 61 74 63 68 2d 62 65 67 |rp tpu-m|atch-beg|
|00001da0| 69 6e 6e 69 6e 67 2d 6d | 61 72 6b 20 6d 61 72 6b |inning-m|ark mark|
|00001db0| 65 72 2d 70 6f 73 69 74 | 69 6f 6e 20 62 65 67 20 |er-posit|ion beg |
|00001dc0| 6d 65 73 73 61 67 65 20 | 22 28 25 73 2c 20 25 73 |message |"(%s, %s|
|00001dd0| 29 20 69 6e 20 25 73 20 | 2d 2d 20 63 75 72 72 65 |) in %s |-- curre|
|00001de0| 6e 74 20 25 73 20 69 6e | 20 25 73 22 20 74 70 75 |nt %s in| %s" tpu|
|00001df0| 2d 6d 61 74 63 68 2d 65 | 6e 64 2d 6d 61 72 6b 20 |-match-e|nd-mark |
|00001e00| 6d 61 72 6b 65 72 2d 62 | 75 66 66 65 72 5d 20 37 |marker-b|uffer] 7|
|00001e10| 20 28 23 24 20 2e 20 37 | 34 34 38 29 20 6e 69 6c | (#$ . 7|448) nil|
|00001e20| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 74 70 |]).(defa|lias 'tp|
|00001e30| 75 2d 63 61 61 72 20 23 | 5b 28 74 68 69 6e 67 79 |u-caar #|[(thingy|
|00001e40| 29 20 22 08 40 40 87 22 | 20 5b 74 68 69 6e 67 79 |) ".@@."| [thingy|
|00001e50| 5d 20 31 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 1]).(d|efalias |
|00001e60| 27 74 70 75 2d 63 61 64 | 72 20 23 5b 28 74 68 69 |'tpu-cad|r #[(thi|
|00001e70| 6e 67 79 29 20 22 08 41 | 40 87 22 20 5b 74 68 69 |ngy) ".A|@." [thi|
|00001e80| 6e 67 79 5d 20 31 5d 29 | 0a 23 40 31 31 34 20 54 |ngy] 1])|.#@114 T|
|00001e90| 50 55 2d 65 64 74 20 76 | 65 72 73 69 6f 6e 20 6f |PU-edt v|ersion o|
|00001ea0| 66 20 74 68 65 20 6d 61 | 72 6b 20 66 75 6e 63 74 |f the ma|rk funct|
|00001eb0| 69 6f 6e 2e 0a 52 65 74 | 75 72 6e 20 74 68 65 20 |ion..Ret|urn the |
|00001ec0| 61 70 70 72 6f 70 72 69 | 61 74 65 20 76 61 6c 75 |appropri|ate valu|
|00001ed0| 65 20 6f 66 20 74 68 65 | 20 6d 61 72 6b 20 66 6f |e of the| mark fo|
|00001ee0| 72 20 74 68 65 20 63 75 | 72 72 65 6e 74 0a 76 65 |r the cu|rrent.ve|
|00001ef0| 72 73 69 6f 6e 20 6f 66 | 20 45 6d 61 63 73 2e 1f |rsion of| Emacs..|
|00001f00| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 74 70 75 2d |.(defali|as 'tpu-|
|00001f10| 6d 61 72 6b 20 23 5b 6e | 69 6c 20 22 08 83 09 00 |mark #[n|il "....|
|00001f20| c1 5c 6e 3f 21 87 0b 83 | 16 00 5c 66 85 18 00 c1 |.\n?!...|..\f....|
|00001f30| 0d 3f 21 87 c1 20 87 22 | 20 5b 74 70 75 2d 6c 75 |.?!.. ."| [tpu-lu|
|00001f40| 63 69 64 2d 65 6d 61 63 | 73 31 39 2d 70 20 6d 61 |cid-emac|s19-p ma|
|00001f50| 72 6b 20 7a 6d 61 63 73 | 2d 72 65 67 69 6f 6e 73 |rk zmacs|-regions|
|00001f60| 20 74 70 75 2d 65 6d 61 | 63 73 31 39 2d 70 20 6d | tpu-ema|cs19-p m|
|00001f70| 61 72 6b 2d 61 63 74 69 | 76 65 20 74 72 61 6e 73 |ark-acti|ve trans|
|00001f80| 69 65 6e 74 2d 6d 61 72 | 6b 2d 6d 6f 64 65 5d 20 |ient-mar|k-mode] |
|00001f90| 32 20 28 23 24 20 2e 20 | 37 38 32 33 29 5d 29 0a |2 (#$ . |7823)]).|
|00001fa0| 23 40 31 33 33 20 54 50 | 55 2d 65 64 74 20 76 65 |#@133 TP|U-edt ve|
|00001fb0| 72 69 6f 6e 20 6f 66 20 | 74 68 65 20 60 73 65 74 |rion of |the `set|
|00001fc0| 2d 6d 61 72 6b 27 20 66 | 75 6e 63 74 69 6f 6e 2e |-mark' f|unction.|
|00001fd0| 0a 53 65 74 73 20 74 68 | 65 20 6d 61 72 6b 20 61 |.Sets th|e mark a|
|00001fe0| 74 20 50 4f 53 20 61 6e | 64 20 61 63 74 69 76 61 |t POS an|d activa|
|00001ff0| 74 65 73 20 74 68 65 20 | 72 65 67 69 6f 6e 20 61 |tes the |region a|
|00002000| 63 63 6f 72 64 69 6e 67 | 20 74 6f 20 74 68 65 0a |ccording| to the.|
|00002010| 63 75 72 72 65 6e 74 20 | 76 65 72 73 69 6f 6e 20 |current |version |
|00002020| 6f 66 20 45 6d 61 63 73 | 2e 1f 0a 28 64 65 66 61 |of Emacs|...(defa|
|00002030| 6c 69 61 73 20 27 74 70 | 75 2d 73 65 74 2d 6d 61 |lias 'tp|u-set-ma|
|00002040| 72 6b 20 23 5b 28 70 6f | 73 29 20 22 c0 09 21 88 |rk #[(po|s) "..!.|
|00002050| 5c 6e 85 0e 00 09 85 0e | 00 c3 20 87 22 20 5b 73 |\n......|.. ." [s|
|00002060| 65 74 2d 6d 61 72 6b 20 | 70 6f 73 20 74 70 75 2d |et-mark |pos tpu-|
|00002070| 6c 75 63 69 64 2d 65 6d | 61 63 73 31 39 2d 70 20 |lucid-em|acs19-p |
|00002080| 7a 6d 61 63 73 2d 61 63 | 74 69 76 61 74 65 2d 72 |zmacs-ac|tivate-r|
|00002090| 65 67 69 6f 6e 5d 20 32 | 20 28 23 24 20 2e 20 38 |egion] 2| (#$ . 8|
|000020a0| 31 30 32 29 5d 29 0a 23 | 40 32 38 20 52 65 61 64 |102)]).#|@28 Read|
|000020b0| 20 61 20 73 74 72 69 6e | 67 20 77 69 74 68 20 50 | a strin|g with P|
|000020c0| 52 4f 4d 50 54 2e 1f 0a | 28 64 65 66 61 6c 69 61 |ROMPT...|(defalia|
|000020d0| 73 20 27 74 70 75 2d 73 | 74 72 69 6e 67 2d 70 72 |s 'tpu-s|tring-pr|
|000020e0| 6f 6d 70 74 20 23 5b 28 | 70 72 6f 6d 70 74 20 68 |ompt #[(|prompt h|
|000020f0| 69 73 74 6f 72 79 2d 73 | 79 6d 62 6f 6c 29 20 22 |istory-s|ymbol) "|
|00002100| 08 83 5c 66 00 c1 5c 6e | c3 89 89 5c 66 25 87 c5 |..\f..\n|...\f%..|
|00002110| 5c 6e 21 87 22 20 5b 74 | 70 75 2d 65 6d 61 63 73 |\n!." [t|pu-emacs|
|00002120| 31 39 2d 70 20 72 65 61 | 64 2d 66 72 6f 6d 2d 6d |19-p rea|d-from-m|
|00002130| 69 6e 69 62 75 66 66 65 | 72 20 70 72 6f 6d 70 74 |inibuffe|r prompt|
|00002140| 20 6e 69 6c 20 68 69 73 | 74 6f 72 79 2d 73 79 6d | nil his|tory-sym|
|00002150| 62 6f 6c 20 72 65 61 64 | 2d 73 74 72 69 6e 67 5d |bol read|-string]|
|00002160| 20 36 20 28 23 24 20 2e | 20 38 33 36 34 29 5d 29 | 6 (#$ .| 8364)])|
|00002170| 0a 23 40 33 39 20 4d 6f | 73 74 20 72 65 63 65 6e |.#@39 Mo|st recen|
|00002180| 74 20 72 65 73 70 6f 6e | 73 65 20 74 6f 20 74 70 |t respon|se to tp|
|00002190| 75 2d 79 2d 6f 72 2d 6e | 2d 70 2e 1f 0a 28 64 65 |u-y-or-n|-p...(de|
|000021a0| 66 76 61 72 20 74 70 75 | 2d 6c 61 73 74 2d 61 6e |fvar tpu|-last-an|
|000021b0| 73 77 65 72 20 6e 69 6c | 20 28 23 24 20 2e 20 38 |swer nil| (#$ . 8|
|000021c0| 35 36 36 29 29 0a 23 40 | 31 37 38 20 50 72 6f 6d |566)).#@|178 Prom|
|000021d0| 70 74 20 66 6f 72 20 61 | 20 79 20 6f 72 20 6e 20 |pt for a| y or n |
|000021e0| 61 6e 73 77 65 72 20 77 | 69 74 68 20 70 6f 73 69 |answer w|ith posi|
|000021f0| 74 69 76 65 20 64 65 66 | 61 75 6c 74 2e 0a 4f 70 |tive def|ault..Op|
|00002200| 74 69 6f 6e 61 6c 20 73 | 65 63 6f 6e 64 20 61 72 |tional s|econd ar|
|00002210| 67 75 6d 65 6e 74 20 4e | 4f 54 2d 59 45 53 20 63 |gument N|OT-YES c|
|00002220| 68 61 6e 67 65 73 20 64 | 65 66 61 75 6c 74 20 74 |hanges d|efault t|
|00002230| 6f 20 6e 65 67 61 74 69 | 76 65 2e 0a 4c 69 6b 65 |o negati|ve..Like|
|00002240| 20 45 6d 61 63 73 20 60 | 79 2d 6f 72 2d 6e 2d 70 | Emacs `|y-or-n-p|
|00002250| 27 2c 20 62 75 74 20 61 | 6c 73 6f 20 61 63 63 65 |', but a|lso acce|
|00002260| 70 74 73 20 73 70 61 63 | 65 20 61 73 20 79 20 61 |pts spac|e as y a|
|00002270| 6e 64 20 44 45 4c 20 61 | 73 20 6e 2e 1f 0a 28 64 |nd DEL a|s n...(d|
|00002280| 65 66 61 6c 69 61 73 20 | 27 74 70 75 2d 79 2d 6f |efalias |'tpu-y-o|
|00002290| 72 2d 6e 2d 70 20 23 5b | 28 70 72 6f 6d 70 74 20 |r-n-p #[|(prompt |
|000022a0| 26 6f 70 74 69 6f 6e 61 | 6c 20 6e 6f 74 2d 79 65 |&optiona|l not-ye|
|000022b0| 73 29 20 22 c0 c1 5c 6e | 0b 83 0b 00 c4 82 5c 66 |s) "..\n|......\f|
|000022c0| 00 c5 23 88 c6 1e 07 0e | 07 83 78 00 c8 16 07 c9 |..#.....|..x.....|
|000022d0| 20 89 1e 5c 6e cb 55 84 | 31 00 0e 5c 6e cc 55 84 | ..\n.U.|1..\n.U.|
|000022e0| 31 00 0e 5c 6e cd 55 83 | 37 00 c6 16 0e 82 74 00 |1..\n.U.|7.....t.|
|000022f0| 0e 5c 6e cf 55 84 4c 00 | 0e 5c 6e d0 55 84 4c 00 |.\n.U.L.|.\n.U.L.|
|00002300| 0e 5c 6e d1 55 83 52 00 | c8 16 0e 82 74 00 0e 5c |.\n.U.R.|....t..\|
|00002310| 6e d2 55 83 60 00 0b 3f | 16 0e 82 74 00 c6 16 07 |n.U.`..?|...t....|
|00002320| d3 20 88 c0 d4 5c 6e 0b | 83 71 00 c4 82 72 00 c5 |. ...\n.|.q...r..|
|00002330| 23 88 29 82 11 00 29 0e | 0e 87 22 20 5b 6d 65 73 |#.)...).|.." [mes|
|00002340| 73 61 67 65 20 22 25 73 | 5b 25 73 5d 22 20 70 72 |sage "%s|[%s]" pr|
|00002350| 6f 6d 70 74 20 6e 6f 74 | 2d 79 65 73 20 22 6e 22 |ompt not|-yes "n"|
|00002360| 20 22 79 22 20 74 20 64 | 6f 69 74 20 6e 69 6c 20 | "y" t d|oit nil |
|00002370| 72 65 61 64 2d 63 68 61 | 72 20 61 6e 73 20 31 32 |read-cha|r ans 12|
|00002380| 31 20 38 39 20 33 32 20 | 74 70 75 2d 6c 61 73 74 |1 89 32 |tpu-last|
|00002390| 2d 61 6e 73 77 65 72 20 | 31 31 30 20 37 38 20 31 |-answer |110 78 1|
|000023a0| 32 37 20 31 33 20 62 65 | 65 70 20 22 50 6c 65 61 |27 13 be|ep "Plea|
|000023b0| 73 65 20 61 6e 73 77 65 | 72 20 79 20 6f 72 20 6e |se answe|r y or n|
|000023c0| 2e 20 20 25 73 5b 25 73 | 5d 22 5d 20 35 20 28 23 |. %s[%s|]"] 5 (#|
|000023d0| 24 20 2e 20 38 36 35 32 | 29 5d 29 0a 23 40 37 38 |$ . 8652|)]).#@78|
|000023e0| 20 52 65 70 6c 61 63 65 | 20 61 20 6b 65 79 20 69 | Replace| a key i|
|000023f0| 6e 20 74 68 65 20 54 50 | 55 2d 65 64 74 20 6c 6f |n the TP|U-edt lo|
|00002400| 63 61 6c 20 6b 65 79 20 | 6d 61 70 2e 0a 43 72 65 |cal key |map..Cre|
|00002410| 61 74 65 20 74 68 65 20 | 6b 65 79 20 6d 61 70 20 |ate the |key map |
|00002420| 69 66 20 6e 65 63 65 73 | 73 61 72 79 2e 1f 0a 28 |if neces|sary...(|
|00002430| 64 65 66 61 6c 69 61 73 | 20 27 74 70 75 2d 6c 6f |defalias| 'tpu-lo|
|00002440| 63 61 6c 2d 73 65 74 2d | 6b 65 79 20 23 5b 28 6b |cal-set-|key #[(k|
|00002450| 65 79 20 66 75 6e 63 29 | 20 22 c0 09 21 84 19 00 |ey func)| "..!...|
|00002460| c2 20 83 12 00 c3 c2 20 | 21 82 14 00 c4 20 11 c5 |. ..... |!.... ..|
|00002470| 09 21 88 c6 0e 07 0e 08 | 5c 22 87 22 20 5b 6b 65 |.!......|\"." [ke|
|00002480| 79 6d 61 70 70 20 74 70 | 75 2d 62 75 66 66 65 72 |ymapp tp|u-buffer|
|00002490| 2d 6c 6f 63 61 6c 2d 6d | 61 70 20 63 75 72 72 65 |-local-m|ap curre|
|000024a0| 6e 74 2d 6c 6f 63 61 6c | 2d 6d 61 70 20 63 6f 70 |nt-local|-map cop|
|000024b0| 79 2d 6b 65 79 6d 61 70 | 20 6d 61 6b 65 2d 73 70 |y-keymap| make-sp|
|000024c0| 61 72 73 65 2d 6b 65 79 | 6d 61 70 20 75 73 65 2d |arse-key|map use-|
|000024d0| 6c 6f 63 61 6c 2d 6d 61 | 70 20 6c 6f 63 61 6c 2d |local-ma|p local-|
|000024e0| 73 65 74 2d 6b 65 79 20 | 6b 65 79 20 66 75 6e 63 |set-key |key func|
|000024f0| 5d 20 33 20 28 23 24 20 | 2e 20 39 31 38 35 29 5d |] 3 (#$ |. 9185)]|
|00002500| 29 0a 23 40 31 33 30 20 | 52 65 74 75 72 6e 20 74 |).#@130 |Return t|
|00002510| 68 65 20 76 65 72 74 69 | 63 61 6c 20 70 6f 73 69 |he verti|cal posi|
|00002520| 74 69 6f 6e 20 6f 66 20 | 70 6f 69 6e 74 20 69 6e |tion of |point in|
|00002530| 20 74 68 65 20 73 65 6c | 65 63 74 65 64 20 77 69 | the sel|ected wi|
|00002540| 6e 64 6f 77 2e 0a 54 6f | 70 20 6c 69 6e 65 20 69 |ndow..To|p line i|
|00002550| 73 20 30 2e 20 20 43 6f | 75 6e 74 73 20 65 61 63 |s 0. Co|unts eac|
|00002560| 68 20 74 65 78 74 20 6c | 69 6e 65 20 6f 6e 6c 79 |h text l|ine only|
|00002570| 20 6f 6e 63 65 2c 20 65 | 76 65 6e 20 69 66 20 69 | once, e|ven if i|
|00002580| 74 20 77 72 61 70 73 2e | 1f 0a 28 64 65 66 61 6c |t wraps.|..(defal|
|00002590| 69 61 73 20 27 74 70 75 | 2d 63 75 72 72 65 6e 74 |ias 'tpu|-current|
|000025a0| 2d 6c 69 6e 65 20 23 5b | 6e 69 6c 20 22 c0 c1 20 |-line #[|nil ".. |
|000025b0| 60 5c 22 69 c2 55 83 0f | 00 c3 82 10 00 c2 5c 5c |`\"i.U..|......\\|
|000025c0| c4 5c 5c 87 22 20 5b 63 | 6f 75 6e 74 2d 6c 69 6e |.\\." [c|ount-lin|
|000025d0| 65 73 20 77 69 6e 64 6f | 77 2d 73 74 61 72 74 20 |es windo|w-start |
|000025e0| 30 20 31 20 2d 31 5d 20 | 33 20 28 23 24 20 2e 20 |0 1 -1] |3 (#$ . |
|000025f0| 39 34 38 30 29 5d 29 0a | 23 40 36 30 20 54 68 65 |9480)]).|#@60 The|
|00002600| 20 73 65 74 20 6f 66 20 | 75 73 65 72 2d 64 65 66 | set of |user-def|
|00002610| 69 6e 65 64 20 6d 61 72 | 6b 65 72 73 20 28 62 72 |ined mar|kers (br|
|00002620| 65 61 64 63 72 75 6d 62 | 73 29 2c 20 61 73 20 61 |eadcrumb|s), as a|
|00002630| 20 70 6c 69 73 74 2e 1f | 0a 28 64 65 66 76 61 72 | plist..|.(defvar|
|00002640| 20 74 70 75 2d 62 72 65 | 61 64 63 72 75 6d 62 2d | tpu-bre|adcrumb-|
|00002650| 70 6c 69 73 74 20 6e 69 | 6c 20 28 23 24 20 2e 20 |plist ni|l (#$ . |
|00002660| 39 37 32 35 29 29 0a 23 | 40 37 32 20 44 72 6f 70 |9725)).#|@72 Drop|
|00002670| 73 20 61 20 62 72 65 61 | 64 63 72 75 6d 62 20 74 |s a brea|dcrumb t|
|00002680| 68 61 74 20 63 61 6e 20 | 62 65 20 72 65 74 75 72 |hat can |be retur|
|00002690| 6e 65 64 20 74 6f 20 6c | 61 74 65 72 20 77 69 74 |ned to l|ater wit|
|000026a0| 68 20 67 6f 74 6f 2d 62 | 72 65 61 64 63 72 75 6d |h goto-b|readcrum|
|000026b0| 62 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |b...(def|alias 't|
|000026c0| 70 75 2d 64 72 6f 70 2d | 62 72 65 61 64 63 72 75 |pu-drop-|breadcru|
|000026d0| 6d 62 20 23 5b 28 6e 75 | 6d 29 20 22 c0 09 5c 6e |mb #[(nu|m) "..\n|
|000026e0| 70 60 44 23 88 c3 c4 5c | 6e 5c 22 87 22 20 5b 70 |p`D#...\|n\"." [p|
|000026f0| 75 74 20 74 70 75 2d 62 | 72 65 61 64 63 72 75 6d |ut tpu-b|readcrum|
|00002700| 62 2d 70 6c 69 73 74 20 | 6e 75 6d 20 6d 65 73 73 |b-plist |num mess|
|00002710| 61 67 65 20 22 4d 61 72 | 6b 20 25 64 20 73 65 74 |age "Mar|k %d set|
|00002720| 2e 22 5d 20 35 20 28 23 | 24 20 2e 20 39 38 33 36 |."] 5 (#|$ . 9836|
|00002730| 29 20 22 70 22 5d 29 0a | 23 40 35 31 20 52 65 74 |) "p"]).|#@51 Ret|
|00002740| 75 72 6e 73 20 74 6f 20 | 61 20 62 72 65 61 64 63 |urns to |a breadc|
|00002750| 72 75 6d 62 20 73 65 74 | 20 77 69 74 68 20 64 72 |rumb set| with dr|
|00002760| 6f 70 2d 62 72 65 61 64 | 63 72 75 6d 62 2e 1f 0a |op-bread|crumb...|
|00002770| 28 64 65 66 61 6c 69 61 | 73 20 27 74 70 75 2d 67 |(defalia|s 'tpu-g|
|00002780| 6f 74 6f 2d 62 72 65 61 | 64 63 72 75 6d 62 20 23 |oto-brea|dcrumb #|
|00002790| 5b 28 6e 75 6d 29 20 22 | 08 09 4e 83 19 00 c2 08 |[(num) "|..N.....|
|000027a0| 09 4e 40 21 88 c3 08 09 | 4e 21 62 88 c4 c5 09 5c |.N@!....|N!b....\|
|000027b0| 22 87 c4 c6 09 5c 22 87 | 22 20 5b 74 70 75 2d 62 |"....\".|" [tpu-b|
|000027c0| 72 65 61 64 63 72 75 6d | 62 2d 70 6c 69 73 74 20 |readcrum|b-plist |
|000027d0| 6e 75 6d 20 73 77 69 74 | 63 68 2d 74 6f 2d 62 75 |num swit|ch-to-bu|
|000027e0| 66 66 65 72 20 74 70 75 | 2d 63 61 64 72 20 6d 65 |ffer tpu|-cadr me|
|000027f0| 73 73 61 67 65 20 22 6d | 61 72 6b 20 25 64 20 66 |ssage "m|ark %d f|
|00002800| 6f 75 6e 64 2e 22 20 22 | 6d 61 72 6b 20 25 64 20 |ound." "|mark %d |
|00002810| 6e 6f 74 20 66 6f 75 6e | 64 2e 22 5d 20 33 20 28 |not foun|d."] 3 (|
|00002820| 23 24 20 2e 20 31 30 30 | 34 35 29 20 22 70 22 5d |#$ . 100|45) "p"]|
|00002830| 29 0a 23 40 31 32 37 20 | 43 68 61 6e 67 65 20 74 |).#@127 |Change t|
|00002840| 68 65 20 63 61 73 65 20 | 6f 66 20 74 68 65 20 63 |he case |of the c|
|00002850| 68 61 72 61 63 74 65 72 | 20 75 6e 64 65 72 20 74 |haracter| under t|
|00002860| 68 65 20 63 75 72 73 6f | 72 20 6f 72 20 72 65 67 |he curso|r or reg|
|00002870| 69 6f 6e 2e 0a 41 63 63 | 65 70 74 73 20 61 20 70 |ion..Acc|epts a p|
|00002880| 72 65 66 69 78 20 61 72 | 67 75 6d 65 6e 74 20 6f |refix ar|gument o|
|00002890| 66 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |f the nu|mber of |
|000028a0| 63 68 61 72 61 63 74 65 | 72 73 20 74 6f 20 69 6e |characte|rs to in|
|000028b0| 76 65 72 74 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |vert...(|defalias|
|000028c0| 20 27 74 70 75 2d 63 68 | 61 6e 67 65 2d 63 61 73 | 'tpu-ch|ange-cas|
|000028d0| 65 20 23 5b 28 6e 75 6d | 29 20 22 c0 20 83 2f 00 |e #[(num|) ". ./.|
|000028e0| c1 20 c2 20 1b 1c 0b 5c | 66 56 83 2a 00 5c 66 66 |. . ...\|fV.*.\ff|
|000028f0| 97 5c 66 66 55 83 1e 00 | c5 82 1f 00 c6 5c 66 89 |.\ffU...|.....\f.|
|00002900| 54 5c 22 88 5c 66 54 14 | 82 0b 00 c7 c8 21 2a 87 |T\".\fT.|.....!*.|
|00002910| c9 20 83 5d 00 ca 20 cb | 20 1b 1c 0b 5c 66 56 83 |. .].. .| ...\fV.|
|00002920| 59 00 5c 66 66 97 5c 66 | 66 55 83 4d 00 c5 82 4e |Y.\ff.\f|fU.M...N|
|00002930| 00 c6 5c 66 89 54 5c 22 | 88 5c 66 54 14 82 3a 00 |..\f.T\"|.\fT..:.|
|00002940| cc 20 2a 87 0e 0d ce 56 | 85 8a 00 67 97 67 55 83 |. *....V|...g.gU.|
|00002950| 6f 00 c5 82 70 00 c6 60 | 60 54 5c 22 88 0e 0f 83 |o...p..`|`T\"....|
|00002960| 7e 00 d0 82 7f 00 d1 75 | 88 0e 0d 53 89 16 0d 82 |~......u|...S....|
|00002970| 5f 00 87 22 20 5b 74 70 | 75 2d 6d 61 72 6b 20 72 |_.." [tp|u-mark r|
|00002980| 65 67 69 6f 6e 2d 62 65 | 67 69 6e 6e 69 6e 67 20 |egion-be|ginning |
|00002990| 72 65 67 69 6f 6e 2d 65 | 6e 64 20 65 6e 64 20 62 |region-e|nd end b|
|000029a0| 65 67 20 75 70 63 61 73 | 65 2d 72 65 67 69 6f 6e |eg upcas|e-region|
|000029b0| 20 64 6f 77 6e 63 61 73 | 65 2d 72 65 67 69 6f 6e | downcas|e-region|
|000029c0| 20 74 70 75 2d 75 6e 73 | 65 6c 65 63 74 20 74 20 | tpu-uns|elect t |
|000029d0| 74 70 75 2d 63 68 65 63 | 6b 2d 6d 61 74 63 68 20 |tpu-chec|k-match |
|000029e0| 74 70 75 2d 6d 61 74 63 | 68 2d 62 65 67 69 6e 6e |tpu-matc|h-beginn|
|000029f0| 69 6e 67 20 74 70 75 2d | 6d 61 74 63 68 2d 65 6e |ing tpu-|match-en|
|00002a00| 64 20 74 70 75 2d 75 6e | 73 65 74 2d 6d 61 74 63 |d tpu-un|set-matc|
|00002a10| 68 20 6e 75 6d 20 30 20 | 74 70 75 2d 72 65 76 65 |h num 0 |tpu-reve|
|00002a20| 72 73 65 20 2d 31 20 31 | 5d 20 34 20 28 23 24 20 |rse -1 1|] 4 (#$ |
|00002a30| 2e 20 31 30 32 39 36 29 | 20 22 70 22 5d 29 0a 23 |. 10296)| "p"]).#|
|00002a40| 40 36 37 20 46 69 6c 6c | 20 70 61 72 61 67 72 61 |@67 Fill| paragra|
|00002a50| 70 68 20 6f 72 20 6d 61 | 72 6b 65 64 20 72 65 67 |ph or ma|rked reg|
|00002a60| 69 6f 6e 2e 0a 57 69 74 | 68 20 61 72 67 75 6d 65 |ion..Wit|h argume|
|00002a70| 6e 74 2c 20 66 69 6c 6c | 20 61 6e 64 20 6a 75 73 |nt, fill| and jus|
|00002a80| 74 69 66 79 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |tify...(|defalias|
|00002a90| 20 27 74 70 75 2d 66 69 | 6c 6c 20 23 5b 28 6e 75 | 'tpu-fi|ll #[(nu|
|00002aa0| 6d 29 20 22 c0 20 83 10 | 00 c1 60 c0 20 5c 6e 23 |m) ". ..|..`. \n#|
|00002ab0| 88 c3 c4 21 87 c5 5c 6e | 21 87 22 20 5b 74 70 75 |...!..\n|!." [tpu|
|00002ac0| 2d 6d 61 72 6b 20 66 69 | 6c 6c 2d 72 65 67 69 6f |-mark fi|ll-regio|
|00002ad0| 6e 20 6e 75 6d 20 74 70 | 75 2d 75 6e 73 65 6c 65 |n num tp|u-unsele|
|00002ae0| 63 74 20 74 20 66 69 6c | 6c 2d 70 61 72 61 67 72 |ct t fil|l-paragr|
|00002af0| 61 70 68 5d 20 34 20 28 | 23 24 20 2e 20 31 30 38 |aph] 4 (|#$ . 108|
|00002b00| 32 30 29 20 22 50 22 5d | 29 0a 23 40 33 35 20 50 |20) "P"]|).#@35 P|
|00002b10| 72 69 6e 74 20 74 68 65 | 20 54 50 55 2d 65 64 74 |rint the| TPU-edt|
|00002b20| 20 76 65 72 73 69 6f 6e | 20 6e 75 6d 62 65 72 2e | version| number.|
|00002b30| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 74 70 75 |..(defal|ias 'tpu|
|00002b40| 2d 76 65 72 73 69 6f 6e | 20 23 5b 6e 69 6c 20 22 |-version| #[nil "|
|00002b50| c0 c1 5c 6e 5c 22 87 22 | 20 5b 6d 65 73 73 61 67 |..\n\"."| [messag|
|00002b60| 65 20 22 54 50 55 2d 65 | 64 74 20 76 65 72 73 69 |e "TPU-e|dt versi|
|00002b70| 6f 6e 20 25 73 20 62 79 | 20 52 6f 62 20 52 69 65 |on %s by| Rob Rie|
|00002b80| 70 65 6c 20 28 72 69 65 | 70 65 6c 40 6e 65 74 77 |pel (rie|pel@netw|
|00002b90| 6f 72 6b 69 6e 67 2e 73 | 74 61 6e 66 6f 72 64 2e |orking.s|tanford.|
|00002ba0| 65 64 75 29 22 20 74 70 | 75 2d 76 65 72 73 69 6f |edu)" tp|u-versio|
|00002bb0| 6e 5d 20 33 20 28 23 24 | 20 2e 20 31 31 30 32 33 |n] 3 (#$| . 11023|
|00002bc0| 29 20 6e 69 6c 5d 29 0a | 23 40 32 33 20 53 65 74 |) nil]).|#@23 Set|
|00002bd0| 73 20 74 68 65 20 73 63 | 72 65 65 6e 20 73 69 7a |s the sc|reen siz|
|00002be0| 65 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |e...(def|alias 't|
|00002bf0| 70 75 2d 72 65 73 65 74 | 2d 73 63 72 65 65 6e 2d |pu-reset|-screen-|
|00002c00| 73 69 7a 65 20 23 5b 28 | 68 65 69 67 68 74 20 77 |size #[(|height w|
|00002c10| 69 64 74 68 29 20 22 c0 | 09 21 88 c2 0b 21 87 22 |idth) ".|.!...!."|
|00002c20| 20 5b 73 65 74 2d 73 63 | 72 65 65 6e 2d 68 65 69 | [set-sc|reen-hei|
|00002c30| 67 68 74 20 68 65 69 67 | 68 74 20 73 65 74 2d 73 |ght heig|ht set-s|
|00002c40| 63 72 65 65 6e 2d 77 69 | 64 74 68 20 77 69 64 74 |creen-wi|dth widt|
|00002c50| 68 5d 20 32 20 28 23 24 | 20 2e 20 31 31 32 31 33 |h] 2 (#$| . 11213|
|00002c60| 29 20 22 6e 6e 65 77 20 | 73 63 72 65 65 6e 20 68 |) "nnew |screen h|
|00002c70| 65 69 67 68 74 3a 20 5c | 6e 6e 6e 65 77 20 73 63 |eight: \|nnnew sc|
|00002c80| 72 65 65 6e 20 77 69 64 | 74 68 3a 20 22 5d 29 0a |reen wid|th: "]).|
|00002c90| 23 40 35 39 20 54 6f 67 | 67 6c 65 20 62 65 74 77 |#@59 Tog|gle betw|
|00002ca0| 65 65 6e 20 27 6e 65 77 | 6c 69 6e 65 20 61 6e 64 |een 'new|line and|
|00002cb0| 20 69 6e 64 65 6e 74 27 | 20 61 6e 64 20 27 73 69 | indent'| and 'si|
|00002cc0| 6d 70 6c 65 20 6e 65 77 | 6c 69 6e 65 27 2e 1f 0a |mple new|line'...|
|00002cd0| 28 64 65 66 61 6c 69 61 | 73 20 27 74 70 75 2d 74 |(defalia|s 'tpu-t|
|00002ce0| 6f 67 67 6c 65 2d 6e 65 | 77 6c 69 6e 65 2d 61 6e |oggle-ne|wline-an|
|00002cf0| 64 2d 69 6e 64 65 6e 74 | 20 23 5b 6e 69 6c 20 22 |d-indent| #[nil "|
|00002d00| 08 83 10 00 c1 12 c3 10 | c4 c5 c6 5c 22 88 82 19 |........|...\"...|
|00002d10| 00 c7 12 c8 10 c4 c5 c9 | 5c 22 88 ca 20 88 74 85 |........|\".. .t.|
|00002d20| 2c 00 cb cc 08 83 2a 00 | cd 82 2b 00 ce 5c 22 87 |,.....*.|..+..\".|
|00002d30| 22 20 5b 74 70 75 2d 6e | 65 77 6c 69 6e 65 2d 61 |" [tpu-n|ewline-a|
|00002d40| 6e 64 2d 69 6e 64 65 6e | 74 2d 70 20 22 22 20 74 |nd-inden|t-p "" t|
|00002d50| 70 75 2d 6e 65 77 6c 69 | 6e 65 2d 61 6e 64 2d 69 |pu-newli|ne-and-i|
|00002d60| 6e 64 65 6e 74 2d 73 74 | 72 69 6e 67 20 6e 69 6c |ndent-st|ring nil|
|00002d70| 20 74 70 75 2d 6c 6f 63 | 61 6c 2d 73 65 74 2d 6b | tpu-loc|al-set-k|
|00002d80| 65 79 20 22 0d 22 20 6e | 65 77 6c 69 6e 65 20 22 |ey "." n|ewline "|
|00002d90| 20 41 75 74 6f 49 6e 64 | 65 6e 74 22 20 74 20 6e | AutoInd|ent" t n|
|00002da0| 65 77 6c 69 6e 65 2d 61 | 6e 64 2d 69 6e 64 65 6e |ewline-a|nd-inden|
|00002db0| 74 20 74 70 75 2d 75 70 | 64 61 74 65 2d 6d 6f 64 |t tpu-up|date-mod|
|00002dc0| 65 2d 6c 69 6e 65 20 6d | 65 73 73 61 67 65 20 22 |e-line m|essage "|
|00002dd0| 43 61 72 72 69 61 67 65 | 20 72 65 74 75 72 6e 20 |Carriage| return |
|00002de0| 69 6e 73 65 72 74 73 20 | 61 20 6e 65 77 6c 69 6e |inserts |a newlin|
|00002df0| 65 25 73 22 20 22 20 61 | 6e 64 20 69 6e 64 65 6e |e%s" " a|nd inden|
|00002e00| 74 73 2e 22 20 22 2e 22 | 5d 20 33 20 28 23 24 20 |ts." "."|] 3 (#$ |
|00002e10| 2e 20 31 31 34 31 33 29 | 20 6e 69 6c 5d 29 0a 23 |. 11413)| nil]).#|
|00002e20| 40 38 37 20 43 68 65 63 | 6b 73 20 74 68 65 20 73 |@87 Chec|ks the s|
|00002e30| 70 65 6c 6c 69 6e 67 20 | 6f 66 20 74 68 65 20 72 |pelling |of the r|
|00002e40| 65 67 69 6f 6e 2c 20 6f | 72 20 6f 66 20 74 68 65 |egion, o|r of the|
|00002e50| 20 65 6e 74 69 72 65 20 | 62 75 66 66 65 72 20 69 | entire |buffer i|
|00002e60| 66 20 6e 6f 0a 20 72 65 | 67 69 6f 6e 20 69 73 20 |f no. re|gion is |
|00002e70| 73 65 6c 65 63 74 65 64 | 2e 1f 0a 28 64 65 66 61 |selected|...(defa|
|00002e80| 6c 69 61 73 20 27 74 70 | 75 2d 73 70 65 6c 6c 2d |lias 'tp|u-spell-|
|00002e90| 63 68 65 63 6b 20 23 5b | 6e 69 6c 20 22 08 83 18 |check #[|nil "...|
|00002ea0| 00 c1 20 83 12 00 c2 c1 | 20 60 5c 22 88 82 29 00 |.. .....| `\"..).|
|00002eb0| c3 20 88 82 29 00 c1 20 | 83 26 00 c4 c1 20 60 5c |. ..).. |.&... `\|
|00002ec0| 22 88 82 29 00 c5 20 88 | c1 20 85 31 00 c6 c7 21 |"..).. .|. .1...!|
|00002ed0| 87 22 20 5b 74 70 75 2d | 68 61 76 65 2d 69 73 70 |." [tpu-|have-isp|
|00002ee0| 65 6c 6c 20 74 70 75 2d | 6d 61 72 6b 20 69 73 70 |ell tpu-|mark isp|
|00002ef0| 65 6c 6c 2d 72 65 67 69 | 6f 6e 20 69 73 70 65 6c |ell-regi|on ispel|
|00002f00| 6c 2d 62 75 66 66 65 72 | 20 73 70 65 6c 6c 2d 72 |l-buffer| spell-r|
|00002f10| 65 67 69 6f 6e 20 73 70 | 65 6c 6c 2d 62 75 66 66 |egion sp|ell-buff|
|00002f20| 65 72 20 74 70 75 2d 75 | 6e 73 65 6c 65 63 74 20 |er tpu-u|nselect |
|00002f30| 74 5d 20 33 20 28 23 24 | 20 2e 20 31 31 38 31 32 |t] 3 (#$| . 11812|
|00002f40| 29 20 6e 69 6c 5d 29 0a | 23 40 33 39 20 53 77 69 |) nil]).|#@39 Swi|
|00002f50| 74 63 68 65 73 20 69 6e | 20 61 6e 64 20 6f 75 74 |tches in| and out|
|00002f60| 20 6f 66 20 6f 76 65 72 | 77 72 69 74 65 20 6d 6f | of over|write mo|
|00002f70| 64 65 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |de..(def|alias 't|
|00002f80| 70 75 2d 74 6f 67 67 6c | 65 2d 6f 76 65 72 77 72 |pu-toggl|e-overwr|
|00002f90| 69 74 65 2d 6d 6f 64 65 | 20 23 5b 6e 69 6c 20 22 |ite-mode| #[nil "|
|00002fa0| 08 83 0d 00 c1 c2 0b 5c | 22 88 c0 c4 21 87 c5 c2 |.......\|"...!...|
|00002fb0| 21 13 c1 c2 c6 5c 22 88 | c0 c7 21 87 22 20 5b 6f |!....\".|..!." [o|
|00002fc0| 76 65 72 77 72 69 74 65 | 2d 6d 6f 64 65 20 74 70 |verwrite|-mode tp|
|00002fd0| 75 2d 6c 6f 63 61 6c 2d | 73 65 74 2d 6b 65 79 20 |u-local-|set-key |
|00002fe0| 22 7f 22 20 74 70 75 2d | 73 61 76 65 64 2d 64 65 |"." tpu-|saved-de|
|00002ff0| 6c 65 74 65 2d 66 75 6e | 63 20 30 20 6c 6f 63 61 |lete-fun|c 0 loca|
|00003000| 6c 2d 6b 65 79 2d 62 69 | 6e 64 69 6e 67 20 70 69 |l-key-bi|nding pi|
|00003010| 63 74 75 72 65 2d 62 61 | 63 6b 77 61 72 64 2d 63 |cture-ba|ckward-c|
|00003020| 6c 65 61 72 2d 63 6f 6c | 75 6d 6e 20 31 5d 20 33 |lear-col|umn 1] 3|
|00003030| 20 28 23 24 20 2e 20 31 | 32 31 30 39 29 20 6e 69 | (#$ . 1|2109) ni|
|00003040| 6c 5d 29 0a 23 40 37 34 | 20 49 6e 73 65 72 74 20 |l]).#@74| Insert |
|00003050| 61 20 63 68 61 72 61 63 | 74 65 72 20 6f 72 20 63 |a charac|ter or c|
|00003060| 6f 6e 74 72 6f 6c 20 63 | 6f 64 65 20 61 63 63 6f |ontrol c|ode acco|
|00003070| 72 64 69 6e 67 20 74 6f | 0a 69 74 73 20 41 53 43 |rding to|.its ASC|
|00003080| 49 49 20 64 65 63 69 6d | 61 6c 20 76 61 6c 75 65 |II decim|al value|
|00003090| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 74 70 |...(defa|lias 'tp|
|000030a0| 75 2d 73 70 65 63 69 61 | 6c 2d 69 6e 73 65 72 74 |u-specia|l-insert|
|000030b0| 20 23 5b 28 6e 75 6d 29 | 20 22 08 83 08 00 c1 c2 | #[(num)| "......|
|000030c0| 21 88 0b 83 10 00 0b 82 | 11 00 c4 63 87 22 20 5b |!.......|...c." [|
|000030d0| 6f 76 65 72 77 72 69 74 | 65 2d 6d 6f 64 65 20 64 |overwrit|e-mode d|
|000030e0| 65 6c 65 74 65 2d 63 68 | 61 72 20 31 20 6e 75 6d |elete-ch|ar 1 num|
|000030f0| 20 30 5d 20 32 20 28 23 | 24 20 2e 20 31 32 33 36 | 0] 2 (#|$ . 1236|
|00003100| 31 29 20 22 50 22 5d 29 | 0a 23 40 39 31 20 52 65 |1) "P"])|.#@91 Re|
|00003110| 61 64 20 6e 65 78 74 20 | 69 6e 70 75 74 20 63 68 |ad next |input ch|
|00003120| 61 72 61 63 74 65 72 20 | 61 6e 64 20 69 6e 73 65 |aracter |and inse|
|00003130| 72 74 20 69 74 2e 0a 54 | 68 69 73 20 69 73 20 75 |rt it..T|his is u|
|00003140| 73 65 66 75 6c 20 66 6f | 72 20 69 6e 73 65 72 74 |seful fo|r insert|
|00003150| 69 6e 67 20 63 6f 6e 74 | 72 6f 6c 20 63 68 61 72 |ing cont|rol char|
|00003160| 61 63 74 65 72 73 2e 1f | 0a 28 64 65 66 61 6c 69 |acters..|.(defali|
|00003170| 61 73 20 27 74 70 75 2d | 71 75 6f 74 65 64 2d 69 |as 'tpu-|quoted-i|
|00003180| 6e 73 65 72 74 20 23 5b | 28 6e 75 6d 29 20 22 c0 |nsert #[|(num) ".|
|00003190| 20 19 5c 6e 83 0b 00 c3 | 5c 66 21 88 c5 09 5c 66 | .\n....|\f!...\f|
|000031a0| 5c 22 29 87 22 20 5b 72 | 65 61 64 2d 63 68 61 72 |\")." [r|ead-char|
|000031b0| 20 63 68 61 72 20 6f 76 | 65 72 77 72 69 74 65 2d | char ov|erwrite-|
|000031c0| 6d 6f 64 65 20 64 65 6c | 65 74 65 2d 63 68 61 72 |mode del|ete-char|
|000031d0| 20 6e 75 6d 20 69 6e 73 | 65 72 74 2d 63 68 61 72 | num ins|ert-char|
|000031e0| 5d 20 33 20 28 23 24 20 | 2e 20 31 32 35 35 38 29 |] 3 (#$ |. 12558)|
|000031f0| 20 22 2a 70 22 5d 29 0a | 23 40 32 33 20 54 50 55 | "*p"]).|#@23 TPU|
|00003200| 2d 6c 69 6b 65 20 69 6e | 63 6c 75 64 65 20 66 69 |-like in|clude fi|
|00003210| 6c 65 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |le..(def|alias 't|
|00003220| 70 75 2d 69 6e 63 6c 75 | 64 65 20 23 5b 28 66 69 |pu-inclu|de #[(fi|
|00003230| 6c 65 29 20 22 8a c0 09 | 21 88 c2 c3 21 29 87 22 |le) "...|!...!)."|
|00003240| 20 5b 69 6e 73 65 72 74 | 2d 66 69 6c 65 20 66 69 | [insert|-file fi|
|00003250| 6c 65 20 6d 65 73 73 61 | 67 65 20 22 22 5d 20 32 |le messa|ge ""] 2|
|00003260| 20 28 23 24 20 2e 20 31 | 32 37 39 37 29 20 22 66 | (#$ . 1|2797) "f|
|00003270| 49 6e 63 6c 75 64 65 20 | 66 69 6c 65 3a 20 22 5d |Include |file: "]|
|00003280| 29 0a 23 40 31 39 20 54 | 50 55 2d 6c 69 6b 65 20 |).#@19 T|PU-like |
|00003290| 67 65 74 20 66 69 6c 65 | 1f 0a 28 64 65 66 61 6c |get file|..(defal|
|000032a0| 69 61 73 20 27 74 70 75 | 2d 67 65 74 20 23 5b 28 |ias 'tpu|-get #[(|
|000032b0| 66 69 6c 65 29 20 22 c0 | 09 21 87 22 20 5b 66 69 |file) ".|.!." [fi|
|000032c0| 6e 64 2d 66 69 6c 65 20 | 66 69 6c 65 5d 20 32 20 |nd-file |file] 2 |
|000032d0| 28 23 24 20 2e 20 31 32 | 39 33 35 29 20 22 46 46 |(#$ . 12|935) "FF|
|000032e0| 69 6c 65 20 74 6f 20 67 | 65 74 3a 20 22 5d 29 0a |ile to g|et: "]).|
|000032f0| 23 40 38 30 20 54 65 6c | 6c 73 20 77 68 61 74 20 |#@80 Tel|ls what |
|00003300| 6c 69 6e 65 20 74 68 65 | 20 70 6f 69 6e 74 20 69 |line the| point i|
|00003310| 73 20 6f 6e 2c 0a 20 61 | 6e 64 20 74 68 65 20 74 |s on,. a|nd the t|
|00003320| 6f 74 61 6c 20 6e 75 6d | 62 65 72 20 6f 66 20 6c |otal num|ber of l|
|00003330| 69 6e 65 73 20 69 6e 20 | 74 68 65 20 62 75 66 66 |ines in |the buff|
|00003340| 65 72 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |er...(de|falias '|
|00003350| 74 70 75 2d 77 68 61 74 | 2d 6c 69 6e 65 20 23 5b |tpu-what|-line #[|
|00003360| 6e 69 6c 20 22 6d 83 5c | 66 00 c0 c1 c2 c3 64 5c |nil "m.\|f.....d\|
|00003370| 22 5c 22 87 c0 c4 c2 c3 | 60 54 5c 22 c2 c3 64 5c |"\".....|`T\"..d\|
|00003380| 22 23 87 22 20 5b 6d 65 | 73 73 61 67 65 20 22 59 |"#." [me|ssage "Y|
|00003390| 6f 75 20 61 72 65 20 61 | 74 20 74 68 65 20 45 6e |ou are a|t the En|
|000033a0| 64 20 6f 66 20 42 75 66 | 66 65 72 2e 20 20 54 68 |d of Buf|fer. Th|
|000033b0| 65 20 6c 61 73 74 20 6c | 69 6e 65 20 69 73 20 25 |e last l|ine is %|
|000033c0| 64 2e 22 20 63 6f 75 6e | 74 2d 6c 69 6e 65 73 20 |d." coun|t-lines |
|000033d0| 31 20 22 4c 69 6e 65 20 | 25 64 20 6f 66 20 25 64 |1 "Line |%d of %d|
|000033e0| 22 5d 20 36 20 28 23 24 | 20 2e 20 31 33 30 34 35 |"] 6 (#$| . 13045|
|000033f0| 29 20 6e 69 6c 5d 29 0a | 23 40 36 36 20 45 78 69 |) nil]).|#@66 Exi|
|00003400| 74 20 74 68 65 20 77 61 | 79 20 54 50 55 20 64 6f |t the wa|y TPU do|
|00003410| 65 73 2c 20 73 61 76 65 | 20 63 75 72 72 65 6e 74 |es, save| current|
|00003420| 20 62 75 66 66 65 72 20 | 61 6e 64 20 61 73 6b 20 | buffer |and ask |
|00003430| 61 62 6f 75 74 20 6f 74 | 68 65 72 73 2e 1f 0a 28 |about ot|hers...(|
|00003440| 64 65 66 61 6c 69 61 73 | 20 27 74 70 75 2d 65 78 |defalias| 'tpu-ex|
|00003450| 69 74 20 23 5b 6e 69 6c | 20 22 c0 20 c1 3d 84 5c |it #[nil| ". .=.\|
|00003460| 6e 00 c2 20 87 c3 20 88 | c4 20 87 22 20 5b 72 65 |n.. .. .|. ." [re|
|00003470| 63 75 72 73 69 6f 6e 2d | 64 65 70 74 68 20 30 20 |cursion-|depth 0 |
|00003480| 65 78 69 74 2d 72 65 63 | 75 72 73 69 76 65 2d 65 |exit-rec|ursive-e|
|00003490| 64 69 74 20 73 61 76 65 | 2d 62 75 66 66 65 72 20 |dit save|-buffer |
|000034a0| 73 61 76 65 2d 62 75 66 | 66 65 72 73 2d 6b 69 6c |save-buf|fers-kil|
|000034b0| 6c 2d 65 6d 61 63 73 5d | 20 32 20 28 23 24 20 2e |l-emacs]| 2 (#$ .|
|000034c0| 20 31 33 33 30 39 29 20 | 6e 69 6c 5d 29 0a 23 40 | 13309) |nil]).#@|
|000034d0| 37 30 20 51 75 69 74 20 | 74 68 65 20 77 61 79 20 |70 Quit |the way |
|000034e0| 54 50 55 20 64 6f 65 73 | 2c 20 61 73 6b 20 74 6f |TPU does|, ask to|
|000034f0| 20 6d 61 6b 65 20 73 75 | 72 65 20 63 68 61 6e 67 | make su|re chang|
|00003500| 65 73 20 73 68 6f 75 6c | 64 20 62 65 20 61 62 61 |es shoul|d be aba|
|00003510| 6e 64 6f 6e 65 64 2e 1f | 0a 28 64 65 66 61 6c 69 |ndoned..|.(defali|
|00003520| 61 73 20 27 74 70 75 2d | 71 75 69 74 20 23 5b 6e |as 'tpu-|quit #[n|
|00003530| 69 6c 20 22 c0 20 c1 1a | 1b 0b 83 32 00 5c 6e 83 |il ". ..|...2.\n.|
|00003540| 32 00 0b 40 1c c5 5c 66 | 21 83 2b 00 c6 5c 66 21 |2..@..\f|!.+..\f!|
|00003550| 83 2b 00 c7 c8 21 83 29 | 00 c9 c1 21 88 82 2b 00 |.+...!.)|...!..+.|
|00003560| ca 12 0b 41 13 29 82 05 | 00 5c 6e 85 39 00 c9 c1 |...A.)..|.\n.9...|
|00003570| 21 2a 87 22 20 5b 62 75 | 66 66 65 72 2d 6c 69 73 |!*." [bu|ffer-lis|
|00003580| 74 20 74 20 77 6f 72 6b | 69 6e 67 20 6c 69 73 74 |t t work|ing list|
|00003590| 20 62 75 66 66 65 72 20 | 62 75 66 66 65 72 2d 66 | buffer |buffer-f|
|000035a0| 69 6c 65 2d 6e 61 6d 65 | 20 62 75 66 66 65 72 2d |ile-name| buffer-|
|000035b0| 6d 6f 64 69 66 69 65 64 | 2d 70 20 74 70 75 2d 79 |modified|-p tpu-y|
|000035c0| 2d 6f 72 2d 6e 2d 70 20 | 22 4d 6f 64 69 66 69 63 |-or-n-p |"Modific|
|000035d0| 61 74 69 6f 6e 73 20 77 | 69 6c 6c 20 6e 6f 74 20 |ations w|ill not |
|000035e0| 62 65 20 73 61 76 65 64 | 2c 20 63 6f 6e 74 69 6e |be saved|, contin|
|000035f0| 75 65 20 71 75 69 74 74 | 69 6e 67 3f 20 22 20 6b |ue quitt|ing? " k|
|00003600| 69 6c 6c 2d 65 6d 61 63 | 73 20 6e 69 6c 5d 20 32 |ill-emac|s nil] 2|
|00003610| 20 28 23 24 20 2e 20 31 | 33 35 32 33 29 20 6e 69 | (#$ . 1|3523) ni|
|00003620| 6c 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |l]).(byt|e-code "|
|00003630| c0 c1 4d 88 c2 c1 4d 88 | c3 c1 4d 88 c4 c1 4d 88 |..M...M.|..M...M.|
|00003640| c5 c6 4d 88 c7 c6 4d 88 | c8 c9 4d 88 ca c9 4d 88 |..M...M.|..M...M.|
|00003650| cb cc 4d 88 cd cc 4d 88 | ce cf 4d 88 d0 cf 4d 88 |..M...M.|..M...M.|
|00003660| d1 d2 4d 88 d3 d2 4d 88 | d4 d5 4d 88 d6 d5 4d 88 |..M...M.|..M...M.|
|00003670| d7 d8 4d 88 d9 d8 4d 88 | da db 4d 88 dc db 4d 88 |..M...M.|..M...M.|
|00003680| dd de 4d 88 df de 4d 88 | e0 e1 4d 88 e2 e1 4d 88 |..M...M.|..M...M.|
|00003690| e3 e4 4d 88 e5 e4 4d 88 | e6 e7 21 84 72 00 e7 e8 |..M...M.|..!.r...|
|000036a0| 4d 88 e9 16 2a ea 0e 2b | 42 16 2b ec 16 2d ed 0e |M...*..+|B.+..-..|
|000036b0| 2b 42 16 2b ee ef 21 84 | 90 00 f0 f1 f2 5c 22 16 |+B.+..!.|.....\".|
|000036c0| 2f ef 0e 2b 42 16 2b ee | f3 21 84 a2 00 f0 f1 f4 |/..+B.+.|.!......|
|000036d0| 5c 22 16 33 f3 0e 2b 42 | 16 2b ee f5 21 84 b1 00 |\".3..+B|.+..!...|
|000036e0| f6 16 35 f5 0e 2b 42 16 | 2b ee f7 21 84 c0 00 f8 |..5..+B.|+..!....|
|000036f0| 16 37 f7 0e 2b 42 16 2b | ee f9 21 84 cf 00 fa 16 |.7..+B.+|..!.....|
|00003700| 39 f9 0e 2b 42 16 2b ee | fb 21 84 de 00 fc 16 3b |9..+B.+.|.!.....;|
|00003710| fb 0e 2b 42 16 2b c0 87 | 22 20 5b 74 70 75 2d 65 |..+B.+..|" [tpu-e|
|00003720| 64 74 2d 6d 6f 64 65 20 | 74 70 75 2d 65 64 74 2d |dt-mode |tpu-edt-|
|00003730| 6f 6e 20 54 50 55 2d 45 | 44 54 2d 4d 4f 44 45 20 |on TPU-E|DT-MODE |
|00003740| 74 70 75 2d 65 64 74 20 | 54 50 55 2d 45 44 54 20 |tpu-edt |TPU-EDT |
|00003750| 65 78 69 74 20 74 70 75 | 2d 65 78 69 74 20 45 58 |exit tpu|-exit EX|
|00003760| 49 54 20 47 65 74 20 74 | 70 75 2d 67 65 74 20 47 |IT Get t|pu-get G|
|00003770| 45 54 20 69 6e 63 6c 75 | 64 65 20 74 70 75 2d 69 |ET inclu|de tpu-i|
|00003780| 6e 63 6c 75 64 65 20 49 | 4e 43 4c 55 44 45 20 71 |nclude I|NCLUDE q|
|00003790| 75 69 74 20 74 70 75 2d | 71 75 69 74 20 51 55 49 |uit tpu-|quit QUI|
|000037a0| 54 20 73 70 65 6c 6c 20 | 74 70 75 2d 73 70 65 6c |T spell |tpu-spel|
|000037b0| 6c 2d 63 68 65 63 6b 20 | 53 50 45 4c 4c 20 77 68 |l-check |SPELL wh|
|000037c0| 61 74 5c 20 6c 69 6e 65 | 20 74 70 75 2d 77 68 61 |at\ line| tpu-wha|
|000037d0| 74 2d 6c 69 6e 65 20 57 | 48 41 54 5c 20 4c 49 4e |t-line W|HAT\ LIN|
|000037e0| 45 20 72 65 70 6c 61 63 | 65 20 74 70 75 2d 6c 6d |E replac|e tpu-lm|
|000037f0| 2d 72 65 70 6c 61 63 65 | 20 52 45 50 4c 41 43 45 |-replace| REPLACE|
|00003800| 20 68 65 6c 70 20 74 70 | 75 2d 68 65 6c 70 20 48 | help tp|u-help H|
|00003810| 45 4c 50 20 73 65 74 5c | 20 63 75 72 73 6f 72 5c |ELP set\| cursor\|
|00003820| 20 66 72 65 65 20 74 70 | 75 2d 73 65 74 2d 63 75 | free tp|u-set-cu|
|00003830| 72 73 6f 72 2d 66 72 65 | 65 20 53 45 54 5c 20 43 |rsor-fre|e SET\ C|
|00003840| 55 52 53 4f 52 5c 20 46 | 52 45 45 20 73 65 74 5c |URSOR\ F|REE set\|
|00003850| 20 63 75 72 73 6f 72 5c | 20 62 6f 75 6e 64 20 74 | cursor\| bound t|
|00003860| 70 75 2d 73 65 74 2d 63 | 75 72 73 6f 72 2d 62 6f |pu-set-c|ursor-bo|
|00003870| 75 6e 64 20 53 45 54 5c | 20 43 55 52 53 4f 52 5c |und SET\| CURSOR\|
|00003880| 20 42 4f 55 4e 44 20 73 | 65 74 5c 20 73 63 72 6f | BOUND s|et\ scro|
|00003890| 6c 6c 5c 20 6d 61 72 67 | 69 6e 73 20 74 70 75 2d |ll\ marg|ins tpu-|
|000038a0| 73 65 74 2d 73 63 72 6f | 6c 6c 2d 6d 61 72 67 69 |set-scro|ll-margi|
|000038b0| 6e 73 20 53 45 54 5c 20 | 53 43 52 4f 4c 4c 5c 20 |ns SET\ |SCROLL\ |
|000038c0| 4d 41 52 47 49 4e 53 20 | 66 62 6f 75 6e 64 70 20 |MARGINS |fboundp |
|000038d0| 6e 65 78 74 2d 6c 69 6e | 65 2d 69 6e 74 65 72 6e |next-lin|e-intern|
|000038e0| 61 6c 20 6c 69 6e 65 2d | 6d 6f 76 65 20 22 5c 66 |al line-|move "\f|
|000038f0| 5c 6e 20 20 20 20 20 20 | 20 20 20 20 5f 5f 5f 5f |\n | ____|
|00003900| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00003910| 5f 5f 5f 20 20 20 20 5f | 5f 5f 5f 5f 5f 5f 5f 5f |___ _|________|
|00003920| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00003930| 5f 5f 5f 5f 5f 5f 5c 6e | 20 20 20 20 20 20 20 20 |______\n| |
|00003940| 20 7c 20 48 45 4c 50 20 | 20 7c 20 20 20 20 20 20 | | HELP | | |
|00003950| 44 6f 20 20 20 20 20 20 | 20 7c 20 20 7c 20 20 20 |Do | | | |
|00003960| 20 20 20 20 7c 20 20 20 | 20 20 20 20 7c 20 20 20 | | | | |
|00003970| 20 20 20 20 7c 20 20 20 | 20 20 20 20 7c 5c 6e 20 | | | |\n |
|00003980| 20 20 20 20 20 20 20 20 | 7c 4b 65 79 44 65 66 73 | ||KeyDefs|
|00003990| 7c 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 || | |
|000039a0| 7c 20 20 7c 20 20 20 20 | 20 20 20 7c 20 20 20 20 || | | | |
|000039b0| 20 20 20 7c 20 20 20 20 | 20 20 20 7c 20 20 20 20 | | | | |
|000039c0| 20 20 20 7c 5c 6e 20 20 | 20 20 20 20 20 20 20 7c | |\n | ||
|000039d0| 5f 5f 5f 5f 5f 5f 5f 7c | 5f 5f 5f 5f 5f 5f 5f 5f |_______||________|
|000039e0| 5f 5f 5f 5f 5f 5f 5f 7c | 20 20 7c 5f 5f 5f 5f 5f |_______|| |_____|
|000039f0| 5f 5f 7c 5f 5f 5f 5f 5f | 5f 5f 7c 5f 5f 5f 5f 5f |__|_____|__|_____|
|00003a00| 5f 5f 7c 5f 5f 5f 5f 5f | 5f 5f 7c 5c 6e 20 20 20 |__|_____|__|\n |
|00003a10| 20 20 20 20 20 20 20 5f | 5f 5f 5f 5f 5f 5f 5f 5f | _|________|
|00003a20| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 20 20 |________|______ |
|00003a30| 20 20 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f | ______|________|
|00003a40| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00003a50| 5f 5c 6e 20 20 20 20 20 | 20 20 20 20 7c 20 46 69 |_\n | | Fi|
|00003a60| 6e 64 20 20 7c 49 6e 73 | 65 72 74 20 7c 52 65 6d |nd |Ins|ert |Rem|
|00003a70| 6f 76 65 20 7c 20 20 7c | 20 47 6f 6c 64 20 20 7c |ove | || Gold ||
|00003a80| 20 48 45 4c 50 20 20 7c | 46 6e 64 4e 78 74 20 7c | HELP ||FndNxt ||
|00003a90| 20 44 65 6c 20 4c 20 7c | 5c 6e 20 20 20 20 20 20 | Del L ||\n |
|00003aa0| 20 20 20 7c 20 20 20 20 | 20 20 20 7c 20 20 20 20 | | | | |
|00003ab0| 20 20 20 7c 53 74 6f 20 | 54 65 78 7c 20 20 7c 20 | |Sto |Tex| | |
|00003ac0| 20 6b 65 79 20 20 7c 45 | 2d 48 65 6c 70 20 7c 20 | key |E|-Help | |
|00003ad0| 46 69 6e 64 20 20 7c 55 | 6e 64 65 6c 20 4c 7c 5c |Find |U|ndel L|\|
|00003ae0| 6e 20 20 20 20 20 20 20 | 20 20 7c 5f 5f 5f 5f 5f |n | |_____|
|00003af0| 5f 5f 7c 5f 5f 5f 5f 5f | 5f 5f 7c 5f 5f 5f 5f 5f |__|_____|__|_____|
|00003b00| 5f 5f 7c 20 20 7c 5f 5f | 5f 5f 5f 5f 5f 7c 5f 5f |__| |__|_____|__|
|00003b10| 5f 5f 5f 5f 5f 7c 5f 5f | 5f 5f 5f 5f 5f 7c 5f 5f |_____|__|_____|__|
|00003b20| 5f 5f 5f 5f 5f 7c 5c 6e | 20 20 20 20 20 20 20 20 |_____|\n| |
|00003b30| 20 7c 53 65 6c 65 63 74 | 20 7c 50 72 65 20 53 63 | |Select| |Pre Sc|
|00003b40| 72 7c 4e 65 78 20 53 63 | 72 7c 20 20 7c 20 50 61 |r|Nex Sc|r| | Pa|
|00003b50| 67 65 20 20 7c 20 53 65 | 63 74 20 20 7c 41 70 70 |ge | Se|ct |App|
|00003b60| 65 6e 64 20 7c 20 44 65 | 6c 20 57 20 7c 5c 6e 20 |end | De|l W |\n |
|00003b70| 20 20 20 20 20 20 20 20 | 7c 20 52 65 73 65 74 20 | || Reset |
|00003b80| 7c 50 72 65 20 57 69 6e | 7c 4e 65 78 20 57 69 6e ||Pre Win||Nex Win|
|00003b90| 7c 20 20 7c 20 20 44 6f | 20 20 20 7c 20 46 69 6c || | Do| | Fil|
|00003ba0| 6c 20 20 7c 52 65 70 6c | 61 63 65 7c 55 6e 64 65 |l |Repl|ace|Unde|
|00003bb0| 6c 20 57 7c 5c 6e 20 20 | 20 20 20 20 20 20 20 7c |l W|\n | ||
|00003bc0| 5f 5f 5f 5f 5f 5f 5f 7c | 5f 5f 5f 5f 5f 5f 5f 7c |_______||_______||
|00003bd0| 5f 5f 5f 5f 5f 5f 5f 7c | 20 20 7c 5f 5f 5f 5f 5f |_______|| |_____|
|00003be0| 5f 5f 7c 5f 5f 5f 5f 5f | 5f 5f 7c 5f 5f 5f 5f 5f |__|_____|__|_____|
|00003bf0| 5f 5f 7c 5f 5f 5f 5f 5f | 5f 5f 7c 5c 6e 20 20 20 |__|_____|__|\n |
|00003c00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 7c 4d | | |M|
|00003c10| 6f 76 65 20 75 70 7c 20 | 20 20 20 20 20 20 20 20 |ove up| | |
|00003c20| 20 7c 46 6f 72 77 61 72 | 64 7c 52 65 76 65 72 73 | |Forwar|d|Revers|
|00003c30| 65 7c 52 65 6d 6f 76 65 | 20 7c 20 44 65 6c 20 43 |e|Remove| | Del C|
|00003c40| 20 7c 5c 6e 20 20 20 20 | 20 20 20 20 20 20 20 20 | |\n | |
|00003c50| 20 20 20 20 20 7c 20 20 | 54 6f 70 20 20 7c 20 20 | | |Top | |
|00003c60| 20 20 20 20 20 20 20 20 | 7c 42 6f 74 74 6f 6d 20 | ||Bottom |
|00003c70| 7c 20 20 54 6f 70 20 20 | 7c 49 6e 73 65 72 74 20 || Top ||Insert |
|00003c80| 7c 55 6e 64 65 6c 20 43 | 7c 5c 6e 20 20 20 20 20 ||Undel C||\n |
|00003c90| 20 20 20 20 20 5f 5f 5f | 5f 5f 5f 5f 7c 5f 5f 5f | ___|____|___|
|00003ca0| 5f 5f 5f 5f 7c 5f 5f 5f | 5f 5f 5f 5f 20 20 20 7c |____|___|____ ||
|00003cb0| 5f 5f 5f 5f 5f 5f 5f 7c | 5f 5f 5f 5f 5f 5f 5f 7c |_______||_______||
|00003cc0| 5f 5f 5f 5f 5f 5f 5f 7c | 5f 5f 5f 5f 5f 5f 5f 7c |_______||_______||
|00003cd0| 5c 6e 20 20 20 20 20 20 | 20 20 20 7c 4d 6f 76 20 |\n | |Mov |
|00003ce0| 4c 65 66 7c 4d 6f 76 20 | 44 6f 77 7c 4d 6f 76 20 |Lef|Mov |Dow|Mov |
|00003cf0| 52 69 67 7c 20 20 7c 20 | 57 6f 72 64 20 20 7c 20 |Rig| | |Word | |
|00003d00| 20 45 4f 4c 20 20 7c 20 | 43 68 61 72 20 20 7c 20 | EOL | |Char | |
|00003d10| 20 20 20 20 20 20 7c 5c | 6e 20 20 20 20 20 20 20 | |\|n |
|00003d20| 20 20 7c 53 74 61 4f 66 | 4c 69 7c 42 6f 74 74 6f | |StaOf|Li|Botto|
|00003d30| 6d 20 7c 45 6e 64 4f 66 | 4c 69 7c 20 20 7c 43 68 |m |EndOf|Li| |Ch|
|00003d40| 6e 67 43 61 73 7c 44 65 | 6c 20 45 4f 4c 7c 53 70 |ngCas|De|l EOL|Sp|
|00003d50| 65 63 49 6e 73 7c 20 45 | 6e 74 65 72 20 7c 5c 6e |ecIns| E|nter |\n|
|00003d60| 20 20 20 20 20 20 20 20 | 20 7c 5f 5f 5f 5f 5f 5f | | |______|
|00003d70| 5f 7c 5f 5f 5f 5f 5f 5f | 5f 7c 5f 5f 5f 5f 5f 5f |_|______|_|______|
|00003d80| 5f 7c 20 20 7c 5f 5f 5f | 5f 5f 5f 5f 7c 5f 5f 5f |_| |___|____|___|
|00003d90| 5f 5f 5f 5f 7c 5f 5f 5f | 5f 5f 5f 5f 7c 20 20 20 |____|___|____| |
|00003da0| 20 20 20 20 7c 5c 6e 20 | 20 20 20 20 20 20 20 20 | |\n | |
|00003db0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003dc0| 20 20 20 20 20 20 20 20 | 20 20 20 7c 20 20 20 20 | | | |
|00003dd0| 20 4c 69 6e 65 20 20 20 | 20 20 20 7c 53 65 6c 65 | Line | |Sele|
|00003de0| 63 74 20 7c 20 53 75 62 | 73 20 20 7c 5c 6e 20 20 |ct | Sub|s |\n |
|00003df0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003e00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003e10| 20 20 7c 20 20 20 4f 70 | 65 6e 20 4c 69 6e 65 20 | | Op|en Line |
|00003e20| 20 20 7c 20 52 65 73 65 | 74 20 7c 20 20 20 20 20 | | Rese|t | |
|00003e30| 20 20 7c 5c 6e 20 20 20 | 20 20 20 20 20 20 20 20 | |\n | |
|00003e40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003e50| 20 20 20 20 20 20 20 20 | 20 7c 5f 5f 5f 5f 5f 5f | | |______|
|00003e60| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 7c 5f 5f 5f 5f 5f 5f |________|_|______|
|00003e70| 5f 7c 5f 5f 5f 5f 5f 5f | 5f 7c 5c 6e 22 20 74 70 |_|______|_|\n" tp|
|00003e80| 75 2d 68 65 6c 70 2d 6b | 65 79 70 61 64 2d 6d 61 |u-help-k|eypad-ma|
|00003e90| 70 20 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c |p curren|t-load-l|
|00003ea0| 69 73 74 20 22 5c 6e 5c | 6e 5c 6e 5c 6e 5c 6e 5c |ist "\n\|n\n\n\n\|
|00003eb0| 6e 5c 6e 5c 6e 5c 6e 5c | 6e 5c 6e 5c 6e 5c 6e 5c |n\n\n\n\|n\n\n\n\|
|00003ec0| 6e 5c 6e 5c 6e 5c 6e 5c | 6e 5c 6e 5c 6e 5c 6e 5c |n\n\n\n\|n\n\n\n\|
|00003ed0| 6e 5c 6e 5c 6e 5c 6e 5c | 6e 5c 6e 5c 6e 5c 6e 5c |n\n\n\n\|n\n\n\n\|
|00003ee0| 6e 5c 6e 5c 6e 5c 6e 5c | 6e 5c 6e 5c 6e 5c 6e 5c |n\n\n\n\|n\n\n\n\|
|00003ef0| 6e 5c 6e 5c 66 5c 6e 5c | 6e 20 20 20 20 20 20 43 |n\n\f\n\|n C|
|00003f00| 6f 6e 74 72 6f 6c 20 43 | 68 61 72 61 63 74 65 72 |ontrol C|haracter|
|00003f10| 73 5c 6e 5c 6e 20 20 20 | 20 20 20 5e 41 20 20 74 |s\n\n | ^A t|
|00003f20| 6f 67 67 6c 65 20 69 6e | 73 65 72 74 20 61 6e 64 |oggle in|sert and|
|00003f30| 20 6f 76 65 72 77 72 69 | 74 65 5c 6e 20 20 20 20 | overwri|te\n |
|00003f40| 20 20 5e 42 20 20 72 65 | 63 61 6c 6c 5c 6e 20 20 | ^B re|call\n |
|00003f50| 20 20 20 20 5e 45 20 20 | 65 6e 64 20 6f 66 20 6c | ^E |end of l|
|00003f60| 69 6e 65 5c 6e 5c 6e 20 | 20 20 20 20 20 5e 47 20 |ine\n\n | ^G |
|00003f70| 20 43 61 6e 63 65 6c 20 | 63 75 72 72 65 6e 74 20 | Cancel |current |
|00003f80| 6f 70 65 72 61 74 69 6f | 6e 5c 6e 20 20 20 20 20 |operatio|n\n |
|00003f90| 20 5e 48 20 20 62 65 67 | 69 6e 6e 69 6e 67 20 6f | ^H beg|inning o|
|00003fa0| 66 20 6c 69 6e 65 5c 6e | 20 20 20 20 20 20 5e 4a |f line\n| ^J|
|00003fb0| 20 20 64 65 6c 65 74 65 | 20 70 72 65 76 69 6f 75 | delete| previou|
|00003fc0| 73 20 77 6f 72 64 5c 6e | 5c 6e 20 20 20 20 20 20 |s word\n|\n |
|00003fd0| 5e 4b 20 20 6c 65 61 72 | 6e 5c 6e 20 20 20 20 20 |^K lear|n\n |
|00003fe0| 20 5e 4c 20 20 69 6e 73 | 65 72 74 20 70 61 67 65 | ^L ins|ert page|
|00003ff0| 20 62 72 65 61 6b 5c 6e | 20 20 20 20 20 20 5e 52 | break\n| ^R|
|00004000| 20 20 72 65 6d 65 6d 62 | 65 72 20 28 64 75 72 69 | rememb|er (duri|
|00004010| 6e 67 20 6c 65 61 72 6e | 29 2c 20 72 65 2d 63 65 |ng learn|), re-ce|
|00004020| 6e 74 65 72 5c 6e 5c 6e | 20 20 20 20 20 20 5e 55 |nter\n\n| ^U|
|00004030| 20 20 64 65 6c 65 74 65 | 20 74 6f 20 62 65 67 69 | delete| to begi|
|00004040| 6e 6e 69 6e 67 20 6f 66 | 20 6c 69 6e 65 5c 6e 20 |nning of| line\n |
|00004050| 20 20 20 20 20 5e 56 20 | 20 71 75 6f 74 65 5c 6e | ^V | quote\n|
|00004060| 20 20 20 20 20 20 5e 57 | 20 20 72 65 66 72 65 73 | ^W| refres|
|00004070| 68 5c 6e 5c 6e 20 20 20 | 20 20 20 5e 5a 20 20 65 |h\n\n | ^Z e|
|00004080| 78 69 74 5c 6e 20 20 20 | 20 5e 58 5e 58 20 20 65 |xit\n | ^X^X e|
|00004090| 78 63 68 61 6e 67 65 20 | 70 6f 69 6e 74 20 61 6e |xchange |point an|
|000040a0| 64 20 6d 61 72 6b 20 2d | 20 75 73 65 66 75 6c 20 |d mark -| useful |
|000040b0| 66 6f 72 20 63 68 65 63 | 6b 69 6e 67 20 72 65 67 |for chec|king reg|
|000040c0| 69 6f 6e 20 62 6f 75 6e | 64 61 72 69 65 73 5c 6e |ion boun|daries\n|
|000040d0| 5c 6e 5c 6e 5c 6e 5c 6e | 5c 6e 5c 6e 5c 6e 5c 6e |\n\n\n\n|\n\n\n\n|
|000040e0| 5c 6e 5c 6e 5c 6e 5c 6e | 5c 6e 5c 6e 5c 6e 5c 6e |\n\n\n\n|\n\n\n\n|
|000040f0| 5c 6e 5c 6e 5c 6e 5c 6e | 5c 6e 5c 6e 5c 6e 5c 6e |\n\n\n\n|\n\n\n\n|
|00004100| 5c 6e 5c 6e 5c 6e 5c 6e | 5c 6e 5c 6e 5c 6e 5c 6e |\n\n\n\n|\n\n\n\n|
|00004110| 5c 6e 5c 6e 5c 6e 5c 6e | 5c 6e 5c 6e 5c 6e 5c 66 |\n\n\n\n|\n\n\n\f|
|00004120| 5c 6e 20 20 20 20 20 20 | 20 47 6f 6c 64 2d 3c 6b |\n | Gold-<k|
|00004130| 65 79 3e 20 46 75 6e 63 | 74 69 6f 6e 73 5c 6e 5c |ey> Func|tions\n\|
|00004140| 6e 20 20 20 20 20 20 20 | 42 20 20 20 20 20 4e 65 |n |B Ne|
|00004150| 78 74 20 42 75 66 66 65 | 72 20 2d 20 64 69 73 70 |xt Buffe|r - disp|
|00004160| 6c 61 79 20 74 68 65 20 | 6e 65 78 74 20 62 75 66 |lay the |next buf|
|00004170| 66 65 72 20 28 61 6c 6c | 20 62 75 66 66 65 72 73 |fer (all| buffers|
|00004180| 29 5c 6e 20 20 20 20 20 | 20 20 43 20 20 20 20 20 |)\n | C |
|00004190| 52 65 63 61 6c 6c 20 2d | 20 65 64 69 74 20 61 6e |Recall -| edit an|
|000041a0| 64 20 70 6f 73 73 69 62 | 6c 79 20 72 65 70 65 61 |d possib|ly repea|
|000041b0| 74 20 70 72 65 76 69 6f | 75 73 20 63 6f 6d 6d 61 |t previo|us comma|
|000041c0| 6e 64 73 5c 6e 20 20 20 | 20 20 20 20 45 20 20 20 |nds\n | E |
|000041d0| 20 20 45 78 69 74 20 2d | 20 73 61 76 65 20 63 75 | Exit -| save cu|
|000041e0| 72 72 65 6e 74 20 62 75 | 66 66 65 72 20 61 6e 64 |rrent bu|ffer and|
|000041f0| 20 61 73 6b 20 61 62 6f | 75 74 20 6f 74 68 65 72 | ask abo|ut other|
|00004200| 73 5c 6e 20 20 20 20 20 | 20 20 47 20 20 20 20 20 |s\n | G |
|00004210| 47 65 74 20 2d 20 6c 6f | 61 64 20 61 20 66 69 6c |Get - lo|ad a fil|
|00004220| 65 20 69 6e 74 6f 20 61 | 20 6e 65 77 20 65 64 69 |e into a| new edi|
|00004230| 74 20 62 75 66 66 65 72 | 5c 6e 5c 6e 20 20 20 20 |t buffer|\n\n |
|00004240| 20 20 20 49 20 20 20 20 | 20 49 6e 63 6c 75 64 65 | I | Include|
|00004250| 20 2d 20 69 6e 63 6c 75 | 64 65 20 61 20 66 69 6c | - inclu|de a fil|
|00004260| 65 20 69 6e 20 74 68 69 | 73 20 62 75 66 66 65 72 |e in thi|s buffer|
|00004270| 5c 6e 20 20 20 20 20 20 | 20 4b 20 20 20 20 20 4b |\n | K K|
|00004280| 69 6c 6c 20 42 75 66 66 | 65 72 20 2d 20 61 62 61 |ill Buff|er - aba|
|00004290| 6e 64 6f 6e 20 65 64 69 | 74 73 20 61 6e 64 20 64 |ndon edi|ts and d|
|000042a0| 65 6c 65 74 65 20 62 75 | 66 66 65 72 5c 6e 20 20 |elete bu|ffer\n |
|000042b0| 20 20 20 20 20 4d 20 20 | 20 20 20 42 75 66 66 65 | M | Buffe|
|000042c0| 72 20 4d 65 6e 75 20 2d | 20 64 69 73 70 6c 61 79 |r Menu -| display|
|000042d0| 20 61 20 6c 69 73 74 20 | 6f 66 20 61 6c 6c 20 62 | a list |of all b|
|000042e0| 75 66 66 65 72 73 5c 6e | 20 20 20 20 20 20 20 4e |uffers\n| N|
|000042f0| 20 20 20 20 20 4e 65 78 | 74 20 46 69 6c 65 20 42 | Nex|t File B|
|00004300| 75 66 66 65 72 20 2d 20 | 64 69 73 70 6c 61 79 20 |uffer - |display |
|00004310| 6e 65 78 74 20 62 75 66 | 66 65 72 20 63 6f 6e 74 |next buf|fer cont|
|00004320| 61 69 6e 69 6e 67 20 61 | 20 66 69 6c 65 5c 6e 5c |aining a| file\n\|
|00004330| 6e 20 20 20 20 20 20 20 | 4f 20 20 20 20 20 4f 63 |n |O Oc|
|00004340| 63 75 72 20 2d 20 73 68 | 6f 77 20 66 6f 6c 6c 6f |cur - sh|ow follo|
|00004350| 77 69 6e 67 20 6c 69 6e | 65 73 20 63 6f 6e 74 61 |wing lin|es conta|
|00004360| 69 6e 69 6e 67 20 52 45 | 47 45 58 50 5c 6e 20 20 |ining RE|GEXP\n |
|00004370| 20 20 20 20 20 51 20 20 | 20 20 20 51 75 69 74 20 | Q | Quit |
|00004380| 2d 20 65 78 69 74 20 77 | 69 74 68 6f 75 74 20 73 |- exit w|ithout s|
|00004390| 61 76 69 6e 67 20 61 6e | 79 74 68 69 6e 67 5c 6e |aving an|ything\n|
|000043a0| 20 20 20 20 20 20 20 52 | 20 20 20 20 20 54 6f 67 | R| Tog|
|000043b0| 67 6c 65 20 72 65 63 74 | 61 6e 67 75 6c 61 72 20 |gle rect|angular |
|000043c0| 6d 6f 64 65 20 66 6f 72 | 20 72 65 6d 6f 76 65 20 |mode for| remove |
|000043d0| 61 6e 64 20 69 6e 73 65 | 72 74 5c 6e 20 20 20 20 |and inse|rt\n |
|000043e0| 20 20 20 53 20 20 20 20 | 20 53 65 61 72 63 68 20 | S | Search |
|000043f0| 61 6e 64 20 73 75 62 73 | 74 69 74 75 74 65 20 2d |and subs|titute -|
|00004400| 20 6c 69 6e 65 20 6d 6f | 64 65 20 52 45 50 4c 41 | line mo|de REPLA|
|00004410| 43 45 20 63 6f 6d 6d 61 | 6e 64 5c 6e 5c 6e 20 20 |CE comma|nd\n\n |
|00004420| 20 20 20 20 5e 54 20 20 | 20 20 20 54 6f 67 67 6c | ^T | Toggl|
|00004430| 65 20 63 6f 6e 74 72 6f | 6c 20 6b 65 79 20 62 69 |e contro|l key bi|
|00004440| 6e 64 69 6e 67 73 20 62 | 65 74 77 65 65 6e 20 54 |ndings b|etween T|
|00004450| 50 55 20 61 6e 64 20 65 | 6d 61 63 73 5c 6e 20 20 |PU and e|macs\n |
|00004460| 20 20 20 20 20 55 20 20 | 20 20 20 55 6e 64 6f 20 | U | Undo |
|00004470| 2d 20 75 6e 64 6f 20 74 | 68 65 20 6c 61 73 74 20 |- undo t|he last |
|00004480| 65 64 69 74 5c 6e 20 20 | 20 20 20 20 20 57 20 20 |edit\n | W |
|00004490| 20 20 20 57 72 69 74 65 | 20 2d 20 73 61 76 65 20 | Write| - save |
|000044a0| 63 75 72 72 65 6e 74 20 | 62 75 66 66 65 72 5c 6e |current |buffer\n|
|000044b0| 20 20 20 20 20 20 20 58 | 20 20 20 20 20 45 78 69 | X| Exi|
|000044c0| 74 20 2d 20 73 61 76 65 | 20 61 6c 6c 20 6d 6f 64 |t - save| all mod|
|000044d0| 69 66 69 65 64 20 62 75 | 66 66 65 72 73 20 61 6e |ified bu|ffers an|
|000044e0| 64 20 65 78 69 74 5c 6e | 5c 6e 5c 6e 5c 6e 5c 6e |d exit\n|\n\n\n\n|
|000044f0| 5c 6e 5c 6e 5c 6e 5c 6e | 5c 6e 5c 6e 5c 6e 5c 6e |\n\n\n\n|\n\n\n\n|
|00004500| 5c 6e 5c 6e 5c 6e 5c 6e | 5c 6e 5c 6e 5c 6e 5c 6e |\n\n\n\n|\n\n\n\n|
|00004510| 5c 6e 5c 6e 5c 6e 5c 6e | 5c 6e 5c 6e 5c 6e 5c 6e |\n\n\n\n|\n\n\n\n|
|00004520| 5c 6e 5c 6e 5c 6e 5c 6e | 5c 6e 5c 6e 5c 6e 5c 6e |\n\n\n\n|\n\n\n\n|
|00004530| 5c 6e 5c 6e 5c 6e 5c 66 | 5c 6e 5c 6e 20 20 4d 6f |\n\n\n\f|\n\n Mo|
|00004540| 72 65 20 65 78 74 65 6e | 73 69 76 65 20 64 6f 63 |re exten|sive doc|
|00004550| 75 6d 65 6e 74 61 74 69 | 6f 6e 20 6f 6e 20 54 50 |umentati|on on TP|
|00004560| 55 2d 65 64 74 20 63 61 | 6e 20 62 65 20 66 6f 75 |U-edt ca|n be fou|
|00004570| 6e 64 20 69 6e 20 74 68 | 65 20 60 43 6f 6d 6d 65 |nd in th|e `Comme|
|00004580| 6e 74 61 72 79 27 5c 6e | 20 20 73 65 63 74 69 6f |ntary'\n| sectio|
|00004590| 6e 20 6f 66 20 74 70 75 | 2d 65 64 74 2e 65 6c 2e |n of tpu|-edt.el.|
|000045a0| 20 20 54 68 69 73 20 73 | 65 63 74 69 6f 6e 20 63 | This s|ection c|
|000045b0| 61 6e 20 62 65 20 61 63 | 63 65 73 73 65 64 20 74 |an be ac|cessed t|
|000045c0| 68 72 6f 75 67 68 20 74 | 68 65 20 73 74 61 6e 64 |hrough t|he stand|
|000045d0| 61 72 64 5c 6e 20 20 45 | 6d 61 63 73 20 68 65 6c |ard\n E|macs hel|
|000045e0| 70 20 66 61 63 69 6c 69 | 74 79 20 75 73 69 6e 67 |p facili|ty using|
|000045f0| 20 74 68 65 20 60 70 27 | 20 6f 70 74 69 6f 6e 2e | the `p'| option.|
|00004600| 20 20 4f 6e 63 65 20 79 | 6f 75 20 65 78 69 74 20 | Once y|ou exit |
|00004610| 54 50 55 2d 65 64 74 20 | 48 65 6c 70 2c 20 6f 6e |TPU-edt |Help, on|
|00004620| 65 5c 6e 20 20 6f 66 20 | 74 68 65 20 66 6f 6c 6c |e\n of |the foll|
|00004630| 6f 77 69 6e 67 20 6b 65 | 79 20 73 65 71 75 65 6e |owing ke|y sequen|
|00004640| 63 65 73 20 69 73 20 73 | 75 72 65 20 74 6f 20 67 |ces is s|ure to g|
|00004650| 65 74 20 79 6f 75 20 74 | 68 65 72 65 2e 5c 6e 5c |et you t|here.\n\|
|00004660| 6e 20 20 20 20 5e 68 20 | 70 20 20 20 20 20 20 20 |n ^h |p |
|00004670| 20 69 66 20 79 6f 75 27 | 72 65 20 6e 6f 74 20 79 | if you'|re not y|
|00004680| 65 74 20 75 73 69 6e 67 | 20 54 50 55 2d 65 64 74 |et using| TPU-edt|
|00004690| 5c 6e 20 20 20 20 47 6f | 6c 64 2d 50 46 32 20 70 |\n Go|ld-PF2 p|
|000046a0| 20 20 69 66 20 79 6f 75 | 27 72 65 20 75 73 69 6e | if you|'re usin|
|000046b0| 67 20 54 50 55 2d 65 64 | 74 5c 6e 5c 6e 20 20 41 |g TPU-ed|t\n\n A|
|000046c0| 6c 74 65 72 6e 61 74 69 | 76 65 6c 79 2c 20 66 69 |lternati|vely, fi|
|000046d0| 72 65 20 75 70 20 45 6d | 61 63 73 20 68 65 6c 70 |re up Em|acs help|
|000046e0| 20 66 72 6f 6d 20 74 68 | 65 20 63 6f 6d 6d 61 6e | from th|e comman|
|000046f0| 64 20 70 72 6f 6d 70 74 | 2c 20 77 69 74 68 5c 6e |d prompt|, with\n|
|00004700| 5c 6e 20 20 20 20 4d 2d | 78 20 68 65 6c 70 2d 66 |\n M-|x help-f|
|00004710| 6f 72 2d 68 65 6c 70 20 | 3c 43 52 3e 20 70 20 3c |or-help |<CR> p <|
|00004720| 43 52 3e 5c 6e 5c 6e 20 | 20 57 68 65 72 65 20 60 |CR>\n\n | Where `|
|00004730| 4d 2d 78 27 20 6d 69 67 | 68 74 20 62 65 20 61 6e |M-x' mig|ht be an|
|00004740| 79 20 6f 66 20 60 47 6f | 6c 64 2d 4b 50 37 27 2c |y of `Go|ld-KP7',|
|00004750| 20 27 44 6f 27 2c 20 6f | 72 20 27 45 53 43 2d 78 | 'Do', o|r 'ESC-x|
|00004760| 27 2e 5c 6e 5c 6e 20 20 | 57 68 65 6e 20 79 6f 75 |'.\n\n |When you|
|00004770| 20 73 75 63 63 65 73 73 | 66 75 6c 6c 79 20 69 6e | success|fully in|
|00004780| 76 6f 6b 65 20 74 68 69 | 73 20 70 61 72 74 20 6f |voke thi|s part o|
|00004790| 66 20 74 68 65 20 45 6d | 61 63 73 20 68 65 6c 70 |f the Em|acs help|
|000047a0| 20 66 61 63 69 6c 69 74 | 79 2c 20 79 6f 75 5c 6e | facilit|y, you\n|
|000047b0| 20 20 77 69 6c 6c 20 73 | 65 65 20 61 20 62 75 66 | will s|ee a buf|
|000047c0| 66 65 72 20 6e 61 6d 65 | 64 20 60 2a 46 69 6e 64 |fer name|d `*Find|
|000047d0| 65 72 2a 27 20 6c 69 73 | 74 69 6e 67 20 61 20 6e |er*' lis|ting a n|
|000047e0| 75 6d 62 65 72 20 6f 66 | 20 74 6f 70 69 63 73 2e |umber of| topics.|
|000047f0| 20 20 4c 6f 6f 6b 20 66 | 6f 72 5c 6e 20 20 74 70 | Look f|or\n tp|
|00004800| 75 2d 65 64 74 20 75 6e | 64 65 72 20 60 65 6d 75 |u-edt un|der `emu|
|00004810| 6c 61 74 69 6f 6e 73 27 | 2e 5c 6e 5c 6e 5c 6e 5c |lations'|.\n\n\n\|
|00004820| 6e 5c 6e 5c 6e 5c 6e 5c | 6e 5c 6e 5c 6e 5c 6e 5c |n\n\n\n\|n\n\n\n\|
|00004830| 6e 5c 6e 5c 6e 5c 6e 5c | 6e 5c 6e 5c 6e 5c 6e 5c |n\n\n\n\|n\n\n\n\|
|00004840| 6e 5c 6e 5c 6e 5c 6e 5c | 6e 5c 6e 5c 6e 5c 6e 5c |n\n\n\n\|n\n\n\n\|
|00004850| 6e 5c 6e 5c 6e 5c 6e 5c | 6e 5c 6e 5c 6e 5c 6e 5c |n\n\n\n\|n\n\n\n\|
|00004860| 6e 5c 6e 5c 6e 5c 6e 5c | 6e 5c 66 5c 6e 5c 6e 20 |n\n\n\n\|n\f\n\n |
|00004870| 20 20 2a 2a 2a 20 4e 6f | 20 6d 6f 72 65 20 68 65 | *** No| more he|
|00004880| 6c 70 2c 20 75 73 65 20 | 50 20 74 6f 20 76 69 65 |lp, use |P to vie|
|00004890| 77 20 70 72 65 76 69 6f | 75 73 20 73 63 72 65 65 |w previo|us scree|
|000048a0| 6e 22 20 74 70 75 2d 68 | 65 6c 70 2d 74 65 78 74 |n" tpu-h|elp-text|
|000048b0| 20 62 6f 75 6e 64 70 20 | 74 70 75 2d 68 65 6c 70 | boundp |tpu-help|
|000048c0| 2d 65 6e 74 65 72 20 66 | 6f 72 6d 61 74 20 22 25 |-enter f|ormat "%|
|000048d0| 73 22 20 22 1b 4f 4d 22 | 20 74 70 75 2d 68 65 6c |s" ".OM"| tpu-hel|
|000048e0| 70 2d 72 65 74 75 72 6e | 20 22 0d 22 20 74 70 75 |p-return| "." tpu|
|000048f0| 2d 68 65 6c 70 2d 4e 20 | 22 4e 22 20 74 70 75 2d |-help-N |"N" tpu-|
|00004900| 68 65 6c 70 2d 6e 20 22 | 6e 22 20 74 70 75 2d 68 |help-n "|n" tpu-h|
|00004910| 65 6c 70 2d 50 20 22 50 | 22 20 74 70 75 2d 68 65 |elp-P "P|" tpu-he|
|00004920| 6c 70 2d 70 20 22 70 22 | 5d 20 33 29 0a 23 40 32 |lp-p "p"|] 3).#@2|
|00004930| 33 20 44 69 73 70 6c 61 | 79 20 54 50 55 2d 65 64 |3 Displa|y TPU-ed|
|00004940| 74 20 68 65 6c 70 2e 1f | 0a 28 64 65 66 61 6c 69 |t help..|.(defali|
|00004950| 61 73 20 27 74 70 75 2d | 68 65 6c 70 20 23 5b 6e |as 'tpu-|help #[n|
|00004960| 69 6c 20 22 c0 8b 87 22 | 20 5b 28 28 62 79 74 65 |il "..."| [((byte|
|00004970| 2d 63 6f 64 65 20 22 c0 | c1 21 84 17 00 c2 c1 21 |-code ".|.!.....!|
|00004980| 88 c3 c1 21 88 5c 66 63 | 88 0d 63 88 c6 16 07 c3 |...!.\fc|..c.....|
|00004990| c1 21 88 c8 20 88 c9 20 | 88 ca 79 88 cb 20 88 cc |.!.. .. |..y.. ..|
|000049a0| 89 89 1e 0d 1e 0e 1e 0f | 0e 10 0e 0e 9a 3f 85 d3 |........|.....?..|
|000049b0| 00 0e 0d 83 46 00 d1 d2 | 21 16 0f 82 4b 00 d1 d3 |....F...|!...K...|
|000049c0| 21 16 0f d4 d5 0e 0f 5c | 22 16 0e 0e 16 0e 0e 9a |!......\|".......|
|000049d0| 83 63 00 cc 16 0d c8 20 | 88 82 30 00 0e 17 0e 0e |.c..... |..0.....|
|000049e0| 9a 84 73 00 0e 18 0e 0e | 9a 83 8c 00 0e 0d 83 80 |..s.....|........|
|000049f0| 00 cc d9 da 8f 88 82 30 | 00 db 20 88 ca 79 88 cb |.......0|.. ..y..|
|00004a00| 20 88 82 30 00 0e 1c 0e | 0e 9a 84 9c 00 0e 1d 0e | ..0....|........|
|00004a10| 0e 9a 83 b5 00 0e 0d 83 | a9 00 cc de df 8f 88 82 |........|........|
|00004a20| 30 00 e0 20 88 ca 79 88 | cb 20 88 82 30 00 0e 10 |0.. ..y.|. ..0...|
|00004a30| 0e 0e 9a 84 30 00 c6 16 | 0d e1 0e 0f 21 88 e2 0e |....0...|....!...|
|00004a40| 0f 21 84 30 00 e3 e4 21 | 88 82 30 00 2b 87 22 20 |.!.0...!|..0.+." |
|00004a50| 5b 67 65 74 2d 62 75 66 | 66 65 72 20 22 2a 54 50 |[get-buf|fer "*TP|
|00004a60| 55 2d 65 64 74 20 48 65 | 6c 70 2a 22 20 67 65 6e |U-edt He|lp*" gen|
|00004a70| 65 72 61 74 65 2d 6e 65 | 77 2d 62 75 66 66 65 72 |erate-ne|w-buffer|
|00004a80| 20 73 77 69 74 63 68 2d | 74 6f 2d 62 75 66 66 65 | switch-|to-buffe|
|00004a90| 72 20 74 70 75 2d 68 65 | 6c 70 2d 6b 65 79 70 61 |r tpu-he|lp-keypa|
|00004aa0| 64 2d 6d 61 70 20 74 70 | 75 2d 68 65 6c 70 2d 74 |d-map tp|u-help-t|
|00004ab0| 65 78 74 20 74 20 62 75 | 66 66 65 72 2d 72 65 61 |ext t bu|ffer-rea|
|00004ac0| 64 2d 6f 6e 6c 79 20 64 | 65 6c 65 74 65 2d 6f 74 |d-only d|elete-ot|
|00004ad0| 68 65 72 2d 77 69 6e 64 | 6f 77 73 20 74 70 75 2d |her-wind|ows tpu-|
|00004ae0| 6d 6f 76 65 2d 74 6f 2d | 62 65 67 69 6e 6e 69 6e |move-to-|beginnin|
|00004af0| 67 20 31 20 74 70 75 2d | 6c 69 6e 65 2d 74 6f 2d |g 1 tpu-|line-to-|
|00004b00| 74 6f 70 2d 6f 66 2d 77 | 69 6e 64 6f 77 20 6e 69 |top-of-w|indow ni|
|00004b10| 6c 20 73 70 6c 69 74 20 | 66 6b 65 79 20 6b 65 79 |l split |fkey key|
|00004b20| 20 74 70 75 2d 68 65 6c | 70 2d 72 65 74 75 72 6e | tpu-hel|p-return|
|00004b30| 20 72 65 61 64 2d 6b 65 | 79 2d 73 65 71 75 65 6e | read-ke|y-sequen|
|00004b40| 63 65 20 22 50 72 65 73 | 73 20 74 68 65 20 6b 65 |ce "Pres|s the ke|
|00004b50| 79 20 79 6f 75 20 77 61 | 6e 74 20 68 65 6c 70 20 |y you wa|nt help |
|00004b60| 6f 6e 20 28 52 45 54 3d | 65 78 69 74 2c 20 45 4e |on (RET=|exit, EN|
|00004b70| 54 45 52 3d 72 65 64 69 | 73 70 6c 61 79 2c 20 4e |TER=redi|splay, N|
|00004b80| 3d 6e 65 78 74 2c 20 50 | 3d 70 72 65 76 29 3a 20 |=next, P|=prev): |
|00004b90| 22 20 22 50 72 65 73 73 | 20 74 68 65 20 6b 65 79 |" "Press| the key|
|00004ba0| 20 79 6f 75 20 77 61 6e | 74 20 68 65 6c 70 20 6f | you wan|t help o|
|00004bb0| 6e 20 28 52 45 54 20 74 | 6f 20 65 78 69 74 2c 20 |n (RET t|o exit, |
|00004bc0| 4e 20 6e 65 78 74 20 73 | 63 72 65 65 6e 2c 20 50 |N next s|creen, P|
|00004bd0| 20 70 72 65 76 20 73 63 | 72 65 65 6e 29 3a 20 22 | prev sc|reen): "|
|00004be0| 20 66 6f 72 6d 61 74 20 | 22 25 73 22 20 74 70 75 | format |"%s" tpu|
|00004bf0| 2d 68 65 6c 70 2d 65 6e | 74 65 72 20 74 70 75 2d |-help-en|ter tpu-|
|00004c00| 68 65 6c 70 2d 4e 20 74 | 70 75 2d 68 65 6c 70 2d |help-N t|pu-help-|
|00004c10| 6e 20 28 73 63 72 6f 6c | 6c 2d 6f 74 68 65 72 2d |n (scrol|l-other-|
|00004c20| 77 69 6e 64 6f 77 20 38 | 29 20 28 28 65 72 72 6f |window 8|) ((erro|
|00004c30| 72 29 29 20 66 6f 72 77 | 61 72 64 2d 70 61 67 65 |r)) forw|ard-page|
|00004c40| 20 74 70 75 2d 68 65 6c | 70 2d 50 20 74 70 75 2d | tpu-hel|p-P tpu-|
|00004c50| 68 65 6c 70 2d 70 20 28 | 73 63 72 6f 6c 6c 2d 6f |help-p (|scroll-o|
|00004c60| 74 68 65 72 2d 77 69 6e | 64 6f 77 20 2d 38 29 20 |ther-win|dow -8) |
|00004c70| 28 28 65 72 72 6f 72 29 | 29 20 62 61 63 6b 77 61 |((error)|) backwa|
|00004c80| 72 64 2d 70 61 67 65 20 | 64 65 73 63 72 69 62 65 |rd-page |describe|
|00004c90| 2d 6b 65 79 20 6b 65 79 | 2d 62 69 6e 64 69 6e 67 |-key key|-binding|
|00004ca0| 20 73 69 74 2d 66 6f 72 | 20 33 5d 20 33 29 29 5d | sit-for| 3] 3))]|
|00004cb0| 20 31 20 28 23 24 20 2e | 20 31 38 37 33 38 29 20 | 1 (#$ .| 18738) |
|00004cc0| 6e 69 6c 5d 29 0a 23 40 | 36 37 20 49 6e 73 65 72 |nil]).#@|67 Inser|
|00004cd0| 74 73 20 61 6e 20 65 73 | 63 61 70 65 20 63 68 61 |ts an es|cape cha|
|00004ce0| 72 61 63 74 65 72 2c 20 | 61 6e 64 20 73 6f 20 62 |racter, |and so b|
|00004cf0| 65 63 6f 6d 65 73 20 74 | 68 65 20 65 73 63 61 70 |ecomes t|he escap|
|00004d00| 65 2d 6b 65 79 20 61 6c | 69 61 73 2e 1f 0a 28 64 |e-key al|ias...(d|
|00004d10| 65 66 61 6c 69 61 73 20 | 27 74 70 75 2d 69 6e 73 |efalias |'tpu-ins|
|00004d20| 65 72 74 2d 65 73 63 61 | 70 65 20 23 5b 6e 69 6c |ert-esca|pe #[nil|
|00004d30| 20 22 c0 63 87 22 20 5b | 22 1b 22 5d 20 31 20 28 | ".c." [|"."] 1 (|
|00004d40| 23 24 20 2e 20 31 39 36 | 35 39 29 20 6e 69 6c 5d |#$ . 196|59) nil]|
|00004d50| 29 0a 23 40 33 31 20 49 | 6e 73 65 72 74 73 20 61 |).#@31 I|nserts a|
|00004d60| 20 66 6f 72 6d 66 65 65 | 64 20 63 68 61 72 61 63 | formfee|d charac|
|00004d70| 74 65 72 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ter...(d|efalias |
|00004d80| 27 74 70 75 2d 69 6e 73 | 65 72 74 2d 66 6f 72 6d |'tpu-ins|ert-form|
|00004d90| 66 65 65 64 20 23 5b 6e | 69 6c 20 22 c0 63 87 22 |feed #[n|il ".c."|
|00004da0| 20 5b 22 5c 66 22 5d 20 | 31 20 28 23 24 20 2e 20 | ["\f"] |1 (#$ . |
|00004db0| 31 39 37 39 39 29 20 6e | 69 6c 5d 29 0a 23 40 32 |19799) n|il]).#@2|
|00004dc0| 37 20 53 61 76 65 64 20 | 76 61 6c 75 65 20 6f 66 |7 Saved |value of|
|00004dd0| 20 43 6f 6e 74 72 6f 6c | 2d 72 2e 1f 0a 28 64 65 | Control|-r...(de|
|00004de0| 66 76 61 72 20 74 70 75 | 2d 73 61 76 65 64 2d 63 |fvar tpu|-saved-c|
|00004df0| 6f 6e 74 72 6f 6c 2d 72 | 20 6e 69 6c 20 28 23 24 |ontrol-r| nil (#$|
|00004e00| 20 2e 20 31 39 39 30 36 | 29 29 0a 23 40 33 35 20 | . 19906|)).#@35 |
|00004e10| 45 6e 64 73 20 74 68 65 | 20 63 75 72 72 65 6e 74 |Ends the| current|
|00004e20| 20 6d 61 63 72 6f 20 64 | 65 66 69 6e 69 74 69 6f | macro d|efinitio|
|00004e30| 6e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 74 70 |n..(defa|lias 'tp|
|00004e40| 75 2d 65 6e 64 2d 64 65 | 66 69 6e 65 2d 6d 61 63 |u-end-de|fine-mac|
|00004e50| 72 6f 2d 6b 65 79 20 23 | 5b 28 6b 65 79 29 20 22 |ro-key #|[(key) "|
|00004e60| c0 c1 21 88 c2 0b 5c 66 | 5c 22 88 c2 c5 0e 06 5c |..!...\f|\".....\|
|00004e70| 22 87 22 20 5b 65 6e 64 | 2d 6b 62 64 2d 6d 61 63 |"." [end|-kbd-mac|
|00004e80| 72 6f 20 6e 69 6c 20 67 | 6c 6f 62 61 6c 2d 73 65 |ro nil g|lobal-se|
|00004e90| 74 2d 6b 65 79 20 6b 65 | 79 20 6c 61 73 74 2d 6b |t-key ke|y last-k|
|00004ea0| 62 64 2d 6d 61 63 72 6f | 20 22 12 22 20 74 70 75 |bd-macro| "." tpu|
|00004eb0| 2d 73 61 76 65 64 2d 63 | 6f 6e 74 72 6f 6c 2d 72 |-saved-c|ontrol-r|
|00004ec0| 5d 20 33 20 28 23 24 20 | 2e 20 31 39 39 38 34 29 |] 3 (#$ |. 19984)|
|00004ed0| 20 22 6b 50 72 65 73 73 | 20 74 68 65 20 6b 65 79 | "kPress| the key|
|00004ee0| 20 79 6f 75 20 77 61 6e | 74 20 74 6f 20 75 73 65 | you wan|t to use|
|00004ef0| 20 74 6f 20 64 6f 20 77 | 68 61 74 20 77 61 73 20 | to do w|hat was |
|00004f00| 6a 75 73 74 20 6c 65 61 | 72 6e 65 64 3a 20 22 5d |just lea|rned: "]|
|00004f10| 29 0a 23 40 36 33 20 42 | 69 6e 64 20 61 20 73 65 |).#@63 B|ind a se|
|00004f20| 74 20 6f 66 20 6b 65 79 | 73 74 72 6f 6b 65 73 20 |t of key|strokes |
|00004f30| 74 6f 20 61 20 73 69 6e | 67 6c 65 20 6b 65 79 2c |to a sin|gle key,|
|00004f40| 20 6f 72 20 6b 65 79 20 | 63 6f 6d 62 69 6e 61 74 | or key |combinat|
|00004f50| 69 6f 6e 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ion...(d|efalias |
|00004f60| 27 74 70 75 2d 64 65 66 | 69 6e 65 2d 6d 61 63 72 |'tpu-def|ine-macr|
|00004f70| 6f 2d 6b 65 79 20 23 5b | 6e 69 6c 20 22 c0 c1 21 |o-key #[|nil "..!|
|00004f80| 12 c3 c1 c4 5c 22 88 c5 | c6 21 87 22 20 5b 67 6c |....\"..|.!." [gl|
|00004f90| 6f 62 61 6c 2d 6b 65 79 | 2d 62 69 6e 64 69 6e 67 |obal-key|-binding|
|00004fa0| 20 22 12 22 20 74 70 75 | 2d 73 61 76 65 64 2d 63 | "." tpu|-saved-c|
|00004fb0| 6f 6e 74 72 6f 6c 2d 72 | 20 67 6c 6f 62 61 6c 2d |ontrol-r| global-|
|00004fc0| 73 65 74 2d 6b 65 79 20 | 74 70 75 2d 65 6e 64 2d |set-key |tpu-end-|
|00004fd0| 64 65 66 69 6e 65 2d 6d | 61 63 72 6f 2d 6b 65 79 |define-m|acro-key|
|00004fe0| 20 73 74 61 72 74 2d 6b | 62 64 2d 6d 61 63 72 6f | start-k|bd-macro|
|00004ff0| 20 6e 69 6c 5d 20 33 20 | 28 23 24 20 2e 20 32 30 | nil] 3 |(#$ . 20|
|00005000| 32 34 37 29 20 6e 69 6c | 5d 29 0a 23 40 31 30 38 |247) nil|]).#@108|
|00005010| 20 4b 69 6c 6c 73 20 74 | 68 65 20 63 75 72 72 65 | Kills t|he curre|
|00005020| 6e 74 20 62 75 66 66 65 | 72 2e 20 20 49 66 20 74 |nt buffe|r. If t|
|00005030| 70 75 2d 6b 69 6c 6c 2d | 62 75 66 66 65 72 73 2d |pu-kill-|buffers-|
|00005040| 73 69 6c 65 6e 74 6c 79 | 20 69 73 20 6e 6f 6e 2d |silently| is non-|
|00005050| 6e 69 6c 2c 0a 6b 69 6c | 6c 73 20 6d 6f 64 69 66 |nil,.kil|ls modif|
|00005060| 69 65 64 20 62 75 66 66 | 65 72 73 20 77 69 74 68 |ied buff|ers with|
|00005070| 6f 75 74 20 61 73 6b 69 | 6e 67 2e 1f 0a 28 64 65 |out aski|ng...(de|
|00005080| 66 61 6c 69 61 73 20 27 | 74 70 75 2d 6b 69 6c 6c |falias '|tpu-kill|
|00005090| 2d 62 75 66 66 65 72 20 | 23 5b 6e 69 6c 20 22 08 |-buffer |#[nil ".|
|000050a0| 83 08 00 c1 c2 21 88 c3 | 70 21 87 22 20 5b 74 70 |.....!..|p!." [tp|
|000050b0| 75 2d 6b 69 6c 6c 2d 62 | 75 66 66 65 72 73 2d 73 |u-kill-b|uffers-s|
|000050c0| 69 6c 65 6e 74 6c 79 20 | 73 65 74 2d 62 75 66 66 |ilently |set-buff|
|000050d0| 65 72 2d 6d 6f 64 69 66 | 69 65 64 2d 70 20 6e 69 |er-modif|ied-p ni|
|000050e0| 6c 20 6b 69 6c 6c 2d 62 | 75 66 66 65 72 5d 20 32 |l kill-b|uffer] 2|
|000050f0| 20 28 23 24 20 2e 20 32 | 30 34 39 37 29 20 6e 69 | (#$ . 2|0497) ni|
|00005100| 6c 5d 29 0a 23 40 33 34 | 20 53 61 76 65 20 61 6c |l]).#@34| Save al|
|00005110| 6c 20 62 75 66 66 65 72 | 73 20 61 6e 64 20 65 78 |l buffer|s and ex|
|00005120| 69 74 20 65 6d 61 63 73 | 2e 1f 0a 28 64 65 66 61 |it emacs|...(defa|
|00005130| 6c 69 61 73 20 27 74 70 | 75 2d 73 61 76 65 2d 61 |lias 'tp|u-save-a|
|00005140| 6c 6c 2d 62 75 66 66 65 | 72 73 2d 6b 69 6c 6c 2d |ll-buffe|rs-kill-|
|00005150| 65 6d 61 63 73 20 23 5b | 6e 69 6c 20 22 c0 19 c2 |emacs #[|nil "...|
|00005160| c0 21 29 87 22 20 5b 74 | 20 64 65 6c 65 74 65 2d |.!)." [t| delete-|
|00005170| 6f 6c 64 2d 76 65 72 73 | 69 6f 6e 73 20 73 61 76 |old-vers|ions sav|
|00005180| 65 2d 62 75 66 66 65 72 | 73 2d 6b 69 6c 6c 2d 65 |e-buffer|s-kill-e|
|00005190| 6d 61 63 73 5d 20 32 20 | 28 23 24 20 2e 20 32 30 |macs] 2 |(#$ . 20|
|000051a0| 37 34 35 29 20 6e 69 6c | 5d 29 0a 23 40 34 34 20 |745) nil|]).#@44 |
|000051b0| 53 61 76 65 20 61 6c 6c | 20 6d 6f 64 69 66 69 65 |Save all| modifie|
|000051c0| 64 20 62 75 66 66 65 72 | 73 20 77 69 74 68 6f 75 |d buffer|s withou|
|000051d0| 74 20 65 78 69 74 69 6e | 67 2e 1f 0a 28 64 65 66 |t exitin|g...(def|
|000051e0| 61 6c 69 61 73 20 27 74 | 70 75 2d 77 72 69 74 65 |alias 't|pu-write|
|000051f0| 2d 63 75 72 72 65 6e 74 | 2d 62 75 66 66 65 72 73 |-current|-buffers|
|00005200| 20 23 5b 6e 69 6c 20 22 | c0 c1 21 87 22 20 5b 73 | #[nil "|..!." [s|
|00005210| 61 76 65 2d 73 6f 6d 65 | 2d 62 75 66 66 65 72 73 |ave-some|-buffers|
|00005220| 20 74 5d 20 32 20 28 23 | 24 20 2e 20 32 30 39 31 | t] 2 (#|$ . 2091|
|00005230| 32 29 20 6e 69 6c 5d 29 | 0a 23 40 32 38 20 47 6f |2) nil])|.#@28 Go|
|00005240| 20 74 6f 20 6e 65 78 74 | 20 62 75 66 66 65 72 20 | to next| buffer |
|00005250| 69 6e 20 72 69 6e 67 2e | 1f 0a 28 64 65 66 61 6c |in ring.|..(defal|
|00005260| 69 61 73 20 27 74 70 75 | 2d 6e 65 78 74 2d 62 75 |ias 'tpu|-next-bu|
|00005270| 66 66 65 72 20 23 5b 6e | 69 6c 20 22 c0 c1 c2 20 |ffer #[n|il "... |
|00005280| 21 40 21 87 22 20 5b 73 | 77 69 74 63 68 2d 74 6f |!@!." [s|witch-to|
|00005290| 2d 62 75 66 66 65 72 20 | 72 65 76 65 72 73 65 20 |-buffer |reverse |
|000052a0| 62 75 66 66 65 72 2d 6c | 69 73 74 5d 20 33 20 28 |buffer-l|ist] 3 (|
|000052b0| 23 24 20 2e 20 32 31 30 | 35 34 29 20 6e 69 6c 5d |#$ . 210|54) nil]|
|000052c0| 29 0a 23 40 36 35 20 47 | 6f 20 74 6f 20 6e 65 78 |).#@65 G|o to nex|
|000052d0| 74 20 62 75 66 66 65 72 | 20 69 6e 20 72 69 6e 67 |t buffer| in ring|
|000052e0| 20 74 68 61 74 20 69 73 | 20 76 69 73 69 74 69 6e | that is| visitin|
|000052f0| 67 20 61 20 66 69 6c 65 | 20 6f 72 20 64 69 72 65 |g a file| or dire|
|00005300| 63 74 6f 72 79 2e 1f 0a | 28 64 65 66 61 6c 69 61 |ctory...|(defalia|
|00005310| 73 20 27 74 70 75 2d 6e | 65 78 74 2d 66 69 6c 65 |s 'tpu-n|ext-file|
|00005320| 2d 62 75 66 66 65 72 20 | 23 5b 6e 69 6c 20 22 c0 |-buffer |#[nil ".|
|00005330| c1 20 21 1a c3 70 5c 6e | 5c 22 89 12 84 12 00 c4 |. !..p\n|\"......|
|00005340| c5 21 88 c6 c7 5c 6e 21 | 40 21 29 87 22 20 5b 74 |.!...\n!|@!)." [t|
|00005350| 70 75 2d 6d 61 6b 65 2d | 66 69 6c 65 2d 62 75 66 |pu-make-|file-buf|
|00005360| 66 65 72 2d 6c 69 73 74 | 20 62 75 66 66 65 72 2d |fer-list| buffer-|
|00005370| 6c 69 73 74 20 6c 69 73 | 74 20 64 65 6c 71 20 65 |list lis|t delq e|
|00005380| 72 72 6f 72 20 22 4e 6f | 20 6f 74 68 65 72 20 62 |rror "No| other b|
|00005390| 75 66 66 65 72 73 2e 22 | 20 73 77 69 74 63 68 2d |uffers."| switch-|
|000053a0| 74 6f 2d 62 75 66 66 65 | 72 20 72 65 76 65 72 73 |to-buffe|r revers|
|000053b0| 65 5d 20 34 20 28 23 24 | 20 2e 20 32 31 31 39 31 |e] 4 (#$| . 21191|
|000053c0| 29 20 6e 69 6c 5d 29 0a | 23 40 38 30 20 52 65 74 |) nil]).|#@80 Ret|
|000053d0| 75 72 6e 73 20 6e 61 6d | 65 73 20 66 72 6f 6d 20 |urns nam|es from |
|000053e0| 42 55 46 46 45 52 2d 4c | 49 53 54 20 65 78 63 6c |BUFFER-L|IST excl|
|000053f0| 75 64 69 6e 67 20 74 68 | 6f 73 65 20 62 65 67 69 |uding th|ose begi|
|00005400| 6e 6e 69 6e 67 20 77 69 | 74 68 20 61 20 73 70 61 |nning wi|th a spa|
|00005410| 63 65 20 6f 72 20 73 74 | 61 72 2e 1f 0a 28 64 65 |ce or st|ar...(de|
|00005420| 66 61 6c 69 61 73 20 27 | 74 70 75 2d 6d 61 6b 65 |falias '|tpu-make|
|00005430| 2d 66 69 6c 65 2d 62 75 | 66 66 65 72 2d 6c 69 73 |-file-bu|ffer-lis|
|00005440| 74 20 23 5b 28 62 75 66 | 66 65 72 2d 6c 69 73 74 |t #[(buf|fer-list|
|00005450| 29 20 22 c0 c1 c2 c3 5c | 66 5c 22 5c 22 87 22 20 |) "....\|f\"\"." |
|00005460| 5b 64 65 6c 71 20 6e 69 | 6c 20 6d 61 70 63 61 72 |[delq ni|l mapcar|
|00005470| 20 23 5b 28 62 29 20 22 | c0 09 21 c2 48 c3 55 86 | #[(b) "|..!.H.U.|
|00005480| 11 00 c0 09 21 c2 48 c4 | 55 3f 85 16 00 09 87 22 |....!.H.|U?....."|
|00005490| 20 5b 62 75 66 66 65 72 | 2d 6e 61 6d 65 20 62 20 | [buffer|-name b |
|000054a0| 30 20 33 32 20 34 32 5d | 20 32 5d 20 62 75 66 66 |0 32 42]| 2] buff|
|000054b0| 65 72 2d 6c 69 73 74 5d | 20 35 20 28 23 24 20 2e |er-list]| 5 (#$ .|
|000054c0| 20 32 31 34 35 33 29 5d | 29 0a 23 40 32 36 20 4d | 21453)]|).#@26 M|
|000054d0| 6f 76 65 20 74 6f 20 74 | 68 65 20 6e 65 78 74 20 |ove to t|he next |
|000054e0| 77 69 6e 64 6f 77 2e 1f | 0a 28 64 65 66 61 6c 69 |window..|.(defali|
|000054f0| 61 73 20 27 74 70 75 2d | 6e 65 78 74 2d 77 69 6e |as 'tpu-|next-win|
|00005500| 64 6f 77 20 23 5b 6e 69 | 6c 20 22 c0 20 83 09 00 |dow #[ni|l ". ...|
|00005510| c1 c2 21 87 c3 c4 21 87 | 22 20 5b 6f 6e 65 2d 77 |..!...!.|" [one-w|
|00005520| 69 6e 64 6f 77 2d 70 20 | 6d 65 73 73 61 67 65 20 |indow-p |message |
|00005530| 22 54 68 65 72 65 20 69 | 73 20 6f 6e 6c 79 20 6f |"There i|s only o|
|00005540| 6e 65 20 77 69 6e 64 6f | 77 20 6f 6e 20 73 63 72 |ne windo|w on scr|
|00005550| 65 65 6e 2e 22 20 6f 74 | 68 65 72 2d 77 69 6e 64 |een." ot|her-wind|
|00005560| 6f 77 20 31 5d 20 32 20 | 28 23 24 20 2e 20 32 31 |ow 1] 2 |(#$ . 21|
|00005570| 37 31 31 29 20 6e 69 6c | 5d 29 0a 23 40 33 30 20 |711) nil|]).#@30 |
|00005580| 4d 6f 76 65 20 74 6f 20 | 74 68 65 20 70 72 65 76 |Move to |the prev|
|00005590| 69 6f 75 73 20 77 69 6e | 64 6f 77 2e 1f 0a 28 64 |ious win|dow...(d|
|000055a0| 65 66 61 6c 69 61 73 20 | 27 74 70 75 2d 70 72 65 |efalias |'tpu-pre|
|000055b0| 76 69 6f 75 73 2d 77 69 | 6e 64 6f 77 20 23 5b 6e |vious-wi|ndow #[n|
|000055c0| 69 6c 20 22 c0 20 83 09 | 00 c1 c2 21 87 c3 c4 20 |il ". ..|...!... |
|000055d0| 21 87 22 20 5b 6f 6e 65 | 2d 77 69 6e 64 6f 77 2d |!." [one|-window-|
|000055e0| 70 20 6d 65 73 73 61 67 | 65 20 22 54 68 65 72 65 |p messag|e "There|
|000055f0| 20 69 73 20 6f 6e 6c 79 | 20 6f 6e 65 20 77 69 6e | is only| one win|
|00005600| 64 6f 77 20 6f 6e 20 73 | 63 72 65 65 6e 2e 22 20 |dow on s|creen." |
|00005610| 73 65 6c 65 63 74 2d 77 | 69 6e 64 6f 77 20 70 72 |select-w|indow pr|
|00005620| 65 76 69 6f 75 73 2d 77 | 69 6e 64 6f 77 5d 20 32 |evious-w|indow] 2|
|00005630| 20 28 23 24 20 2e 20 32 | 31 38 38 38 29 20 6e 69 | (#$ . 2|1888) ni|
|00005640| 6c 5d 29 0a 23 40 36 38 | 20 53 77 69 74 63 68 65 |l]).#@68| Switche|
|00005650| 73 20 69 6e 20 61 6e 64 | 20 6f 75 74 20 6f 66 20 |s in and| out of |
|00005660| 72 65 67 75 6c 61 72 20 | 65 78 70 72 65 73 73 69 |regular |expressi|
|00005670| 6f 6e 20 73 65 61 72 63 | 68 20 61 6e 64 20 72 65 |on searc|h and re|
|00005680| 70 6c 61 63 65 20 6d 6f | 64 65 2e 1f 0a 28 64 65 |place mo|de...(de|
|00005690| 66 61 6c 69 61 73 20 27 | 74 70 75 2d 74 6f 67 67 |falias '|tpu-togg|
|000056a0| 6c 65 2d 72 65 67 65 78 | 70 20 23 5b 6e 69 6c 20 |le-regex|p #[nil |
|000056b0| 22 08 3f 10 c1 20 88 74 | 85 16 00 c2 c3 08 83 14 |".?.. .t|........|
|000056c0| 00 c4 82 15 00 c5 5c 22 | 87 22 20 5b 74 70 75 2d |......\"|." [tpu-|
|000056d0| 72 65 67 65 78 70 2d 70 | 20 74 70 75 2d 73 65 74 |regexp-p| tpu-set|
|000056e0| 2d 73 65 61 72 63 68 20 | 6d 65 73 73 61 67 65 20 |-search |message |
|000056f0| 22 52 65 67 75 6c 61 72 | 20 65 78 70 72 65 73 73 |"Regular| express|
|00005700| 69 6f 6e 20 73 65 61 72 | 63 68 20 61 6e 64 20 73 |ion sear|ch and s|
|00005710| 75 62 73 74 69 74 75 74 | 65 20 25 73 61 62 6c 65 |ubstitut|e %sable|
|00005720| 64 2e 22 20 22 65 6e 22 | 20 22 64 69 73 22 5d 20 |d." "en"| "dis"] |
|00005730| 33 20 28 23 24 20 2e 20 | 32 32 30 38 39 29 20 6e |3 (#$ . |22089) n|
|00005740| 69 6c 5d 29 0a 23 40 36 | 36 20 52 65 61 64 20 61 |il]).#@6|6 Read a|
|00005750| 20 73 74 72 69 6e 67 2c | 20 61 64 64 69 6e 67 20 | string,| adding |
|00005760| 27 52 45 27 20 74 6f 20 | 74 68 65 20 70 72 6f 6d |'RE' to |the prom|
|00005770| 70 74 20 69 66 20 74 70 | 75 2d 72 65 67 65 78 70 |pt if tp|u-regexp|
|00005780| 2d 70 20 69 73 20 73 65 | 74 2e 1f 0a 28 64 65 66 |-p is se|t...(def|
|00005790| 61 6c 69 61 73 20 27 74 | 70 75 2d 72 65 67 65 78 |alias 't|pu-regex|
|000057a0| 70 2d 70 72 6f 6d 70 74 | 20 23 5b 28 70 72 6f 6d |p-prompt| #[(prom|
|000057b0| 70 74 29 20 22 08 85 05 | 00 c1 5c 6e 50 1b 5c 66 |pt) "...|..\nP.\f|
|000057c0| 83 16 00 c5 0b c6 89 89 | c7 25 82 19 00 c8 0b 21 |........|.%.....!|
|000057d0| 29 87 22 20 5b 74 70 75 | 2d 72 65 67 65 78 70 2d |)." [tpu|-regexp-|
|000057e0| 70 20 22 52 45 20 22 20 | 70 72 6f 6d 70 74 20 72 |p "RE " |prompt r|
|000057f0| 65 2d 70 72 6f 6d 70 74 | 20 74 70 75 2d 65 6d 61 |e-prompt| tpu-ema|
|00005800| 63 73 31 39 2d 70 20 72 | 65 61 64 2d 66 72 6f 6d |cs19-p r|ead-from|
|00005810| 2d 6d 69 6e 69 62 75 66 | 66 65 72 20 6e 69 6c 20 |-minibuf|fer nil |
|00005820| 74 70 75 2d 72 65 67 65 | 78 70 2d 70 72 6f 6d 70 |tpu-rege|xp-promp|
|00005830| 74 2d 68 69 73 74 20 72 | 65 61 64 2d 73 74 72 69 |t-hist r|ead-stri|
|00005840| 6e 67 5d 20 36 20 28 23 | 24 20 2e 20 32 32 33 34 |ng] 6 (#|$ . 2234|
|00005850| 36 29 5d 29 0a 23 40 39 | 34 20 53 65 61 72 63 68 |6)]).#@9|4 Search|
|00005860| 20 66 6f 72 20 61 20 73 | 74 72 69 6e 67 20 6f 72 | for a s|tring or|
|00005870| 20 72 65 67 75 6c 61 72 | 20 65 78 70 72 65 73 73 | regular| express|
|00005880| 69 6f 6e 2e 0a 54 68 65 | 20 73 65 61 72 63 68 20 |ion..The| search |
|00005890| 69 73 20 70 65 72 66 6f | 72 6d 65 64 20 69 6e 20 |is perfo|rmed in |
|000058a0| 74 68 65 20 63 75 72 72 | 65 6e 74 20 64 69 72 65 |the curr|ent dire|
|000058b0| 63 74 69 6f 6e 2e 1f 0a | 28 64 65 66 61 6c 69 61 |ction...|(defalia|
|000058c0| 73 20 27 74 70 75 2d 73 | 65 61 72 63 68 20 23 5b |s 'tpu-s|earch #[|
|000058d0| 6e 69 6c 20 22 c0 20 88 | c1 c2 21 87 22 20 5b 74 |nil ". .|..!." [t|
|000058e0| 70 75 2d 73 65 74 2d 73 | 65 61 72 63 68 20 74 70 |pu-set-s|earch tp|
|000058f0| 75 2d 73 65 61 72 63 68 | 2d 69 6e 74 65 72 6e 61 |u-search|-interna|
|00005900| 6c 20 22 22 5d 20 32 20 | 28 23 24 20 2e 20 32 32 |l ""] 2 |(#$ . 22|
|00005910| 36 31 38 29 20 6e 69 6c | 5d 29 0a 23 40 39 31 20 |618) nil|]).#@91 |
|00005920| 53 65 61 72 63 68 20 66 | 6f 72 20 61 20 73 74 72 |Search f|or a str|
|00005930| 69 6e 67 20 6f 72 20 72 | 65 67 75 6c 61 72 20 65 |ing or r|egular e|
|00005940| 78 70 72 65 73 73 69 6f | 6e 2e 0a 54 68 65 20 73 |xpressio|n..The s|
|00005950| 65 61 72 63 68 20 69 73 | 20 62 65 67 69 6e 73 20 |earch is| begins |
|00005960| 69 6e 20 74 68 65 20 66 | 6f 72 77 61 72 64 20 64 |in the f|orward d|
|00005970| 69 72 65 63 74 69 6f 6e | 2e 1f 0a 28 64 65 66 61 |irection|...(defa|
|00005980| 6c 69 61 73 20 27 74 70 | 75 2d 73 65 61 72 63 68 |lias 'tp|u-search|
|00005990| 2d 66 6f 72 77 61 72 64 | 20 23 5b 6e 69 6c 20 22 |-forward| #[nil "|
|000059a0| c0 11 c2 c0 21 88 c3 c4 | 21 87 22 20 5b 74 20 74 |....!...|!." [t t|
|000059b0| 70 75 2d 73 65 61 72 63 | 68 69 6e 67 2d 66 6f 72 |pu-searc|hing-for|
|000059c0| 77 61 72 64 20 74 70 75 | 2d 73 65 74 2d 73 65 61 |ward tpu|-set-sea|
|000059d0| 72 63 68 20 74 70 75 2d | 73 65 61 72 63 68 2d 69 |rch tpu-|search-i|
|000059e0| 6e 74 65 72 6e 61 6c 20 | 22 22 5d 20 32 20 28 23 |nternal |""] 2 (#|
|000059f0| 24 20 2e 20 32 32 38 31 | 36 29 20 6e 69 6c 5d 29 |$ . 2281|6) nil])|
|00005a00| 0a 23 40 39 31 20 53 65 | 61 72 63 68 20 66 6f 72 |.#@91 Se|arch for|
|00005a10| 20 61 20 73 74 72 69 6e | 67 20 6f 72 20 72 65 67 | a strin|g or reg|
|00005a20| 75 6c 61 72 20 65 78 70 | 72 65 73 73 69 6f 6e 2e |ular exp|ression.|
|00005a30| 0a 54 68 65 20 73 65 61 | 72 63 68 20 69 73 20 62 |.The sea|rch is b|
|00005a40| 65 67 69 6e 73 20 69 6e | 20 74 68 65 20 72 65 76 |egins in| the rev|
|00005a50| 65 72 73 65 20 64 69 72 | 65 63 74 69 6f 6e 2e 1f |erse dir|ection..|
|00005a60| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 74 70 75 2d |.(defali|as 'tpu-|
|00005a70| 73 65 61 72 63 68 2d 72 | 65 76 65 72 73 65 20 23 |search-r|everse #|
|00005a80| 5b 6e 69 6c 20 22 c0 11 | c2 c3 21 88 c4 c5 21 87 |[nil "..|..!...!.|
|00005a90| 22 20 5b 6e 69 6c 20 74 | 70 75 2d 73 65 61 72 63 |" [nil t|pu-searc|
|00005aa0| 68 69 6e 67 2d 66 6f 72 | 77 61 72 64 20 74 70 75 |hing-for|ward tpu|
|00005ab0| 2d 73 65 74 2d 73 65 61 | 72 63 68 20 74 20 74 70 |-set-sea|rch t tp|
|00005ac0| 75 2d 73 65 61 72 63 68 | 2d 69 6e 74 65 72 6e 61 |u-search|-interna|
|00005ad0| 6c 20 22 22 5d 20 32 20 | 28 23 24 20 2e 20 32 33 |l ""] 2 |(#$ . 23|
|00005ae0| 30 34 36 29 20 6e 69 6c | 5d 29 0a 23 40 31 31 34 |046) nil|]).#@114|
|00005af0| 20 53 65 61 72 63 68 20 | 66 6f 72 20 74 68 65 20 | Search |for the |
|00005b00| 73 61 6d 65 20 73 74 72 | 69 6e 67 20 6f 72 20 72 |same str|ing or r|
|00005b10| 65 67 75 6c 61 72 20 65 | 78 70 72 65 73 73 69 6f |egular e|xpressio|
|00005b20| 6e 20 61 73 20 6c 61 73 | 74 20 74 69 6d 65 2e 0a |n as las|t time..|
|00005b30| 54 68 65 20 73 65 61 72 | 63 68 20 69 73 20 70 65 |The sear|ch is pe|
|00005b40| 72 66 6f 72 6d 65 64 20 | 69 6e 20 74 68 65 20 63 |rformed |in the c|
|00005b50| 75 72 72 65 6e 74 20 64 | 69 72 65 63 74 69 6f 6e |urrent d|irection|
|00005b60| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 74 70 |...(defa|lias 'tp|
|00005b70| 75 2d 73 65 61 72 63 68 | 2d 61 67 61 69 6e 20 23 |u-search|-again #|
|00005b80| 5b 6e 69 6c 20 22 c0 09 | 21 87 22 20 5b 74 70 75 |[nil "..|!." [tpu|
|00005b90| 2d 73 65 61 72 63 68 2d | 69 6e 74 65 72 6e 61 6c |-search-|internal|
|00005ba0| 20 74 70 75 2d 73 65 61 | 72 63 68 2d 6c 61 73 74 | tpu-sea|rch-last|
|00005bb0| 2d 73 74 72 69 6e 67 5d | 20 32 20 28 23 24 20 2e |-string]| 2 (#$ .|
|00005bc0| 20 32 33 32 38 31 29 20 | 6e 69 6c 5d 29 0a 23 40 | 23281) |nil]).#@|
|00005bd0| 31 34 33 20 53 65 74 20 | 74 68 65 20 73 65 61 72 |143 Set |the sear|
|00005be0| 63 68 20 66 75 6e 63 74 | 69 6f 6e 73 20 61 6e 64 |ch funct|ions and|
|00005bf0| 20 73 65 74 20 74 68 65 | 20 73 65 61 72 63 68 20 | set the| search |
|00005c00| 64 69 72 65 63 74 69 6f | 6e 20 74 6f 20 74 68 65 |directio|n to the|
|00005c10| 20 63 75 72 72 65 6e 74 | 0a 64 69 72 65 63 74 69 | current|.directi|
|00005c20| 6f 6e 2e 20 20 49 66 20 | 61 6e 20 61 72 67 75 6d |on. If |an argum|
|00005c30| 65 6e 74 20 69 73 20 73 | 70 65 63 69 66 69 65 64 |ent is s|pecified|
|00005c40| 2c 20 64 6f 6e 27 74 20 | 73 65 74 20 74 68 65 20 |, don't |set the |
|00005c50| 73 65 61 72 63 68 20 64 | 69 72 65 63 74 69 6f 6e |search d|irection|
|00005c60| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 74 70 |...(defa|lias 'tp|
|00005c70| 75 2d 73 65 74 2d 73 65 | 61 72 63 68 20 23 5b 28 |u-set-se|arch #[(|
|00005c80| 26 6f 70 74 69 6f 6e 61 | 6c 20 61 72 67 29 20 22 |&optiona|l arg) "|
|00005c90| 08 84 5c 6e 00 09 85 09 | 00 c2 13 0b 83 5c 22 00 |..\n....|.....\".|
|00005ca0| 5c 66 83 1a 00 c5 c6 4d | 88 c7 c8 4d 87 c5 c9 4d |\f.....M|...M...M|
|00005cb0| 88 c7 ca 4d 87 5c 66 83 | 2e 00 c5 c8 4d 88 c7 c6 |...M.\f.|....M...|
|00005cc0| 4d 87 c5 ca 4d 88 c7 c9 | 4d 87 22 20 5b 61 72 67 |M...M...|M." [arg|
|00005cd0| 20 74 70 75 2d 61 64 76 | 61 6e 63 65 20 74 20 74 | tpu-adv|ance t t|
|00005ce0| 70 75 2d 73 65 61 72 63 | 68 69 6e 67 2d 66 6f 72 |pu-searc|hing-for|
|00005cf0| 77 61 72 64 20 74 70 75 | 2d 72 65 67 65 78 70 2d |ward tpu|-regexp-|
|00005d00| 70 20 74 70 75 2d 65 6d | 61 63 73 2d 73 65 61 72 |p tpu-em|acs-sear|
|00005d10| 63 68 20 72 65 2d 73 65 | 61 72 63 68 2d 66 6f 72 |ch re-se|arch-for|
|00005d20| 77 61 72 64 20 74 70 75 | 2d 65 6d 61 63 73 2d 72 |ward tpu|-emacs-r|
|00005d30| 65 76 2d 73 65 61 72 63 | 68 20 72 65 2d 73 65 61 |ev-searc|h re-sea|
|00005d40| 72 63 68 2d 62 61 63 6b | 77 61 72 64 20 73 65 61 |rch-back|ward sea|
|00005d50| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 73 65 61 72 |rch-forw|ard sear|
|00005d60| 63 68 2d 62 61 63 6b 77 | 61 72 64 5d 20 32 20 28 |ch-backw|ard] 2 (|
|00005d70| 23 24 20 2e 20 32 33 35 | 30 38 29 5d 29 0a 23 40 |#$ . 235|08)]).#@|
|00005d80| 34 34 20 53 65 61 72 63 | 68 20 66 6f 72 20 61 20 |44 Searc|h for a |
|00005d90| 73 74 72 69 6e 67 20 6f | 72 20 72 65 67 75 6c 61 |string o|r regula|
|00005da0| 72 20 65 78 70 72 65 73 | 73 69 6f 6e 2e 1f 0a 28 |r expres|sion...(|
|00005db0| 64 65 66 61 6c 69 61 73 | 20 27 74 70 75 2d 73 65 |defalias| 'tpu-se|
|00005dc0| 61 72 63 68 2d 69 6e 74 | 65 72 6e 61 6c 20 23 5b |arch-int|ernal #[|
|00005dd0| 28 70 61 74 20 26 6f 70 | 74 69 6f 6e 61 6c 20 71 |(pat &op|tional q|
|00005de0| 75 69 65 74 29 20 22 08 | c1 98 84 5c 6e 00 08 82 |uiet) ".|...\n...|
|00005df0| 0d 00 c2 c3 21 14 c5 20 | 88 c6 20 88 0e 07 85 1c |....!.. |.. .....|
|00005e00| 00 c8 5c 66 21 1e 07 c9 | 5c 66 ca cb 23 83 2f 00 |..\f!...|\f..#./.|
|00005e10| cc 20 88 cd 20 62 82 86 | 00 c6 cb 21 88 ca 89 1e |. .. b..|...!....|
|00005e20| 0e 1e 0f 8a 0e 10 3f 1e | 10 c6 20 88 d1 5c 66 ca |......?.|.. ..\f.|
|00005e30| cb 23 16 0f d2 94 16 0e | 2a 0e 0f 83 71 00 d3 d4 |.#......|*...q...|
|00005e40| d5 0e 10 83 5f 00 d6 82 | 60 00 d7 5c 22 21 85 85 |...._...|`..\"!..|
|00005e50| 00 0e 0e 62 88 cc 20 88 | d8 20 82 85 00 0e 19 3f |...b.. .|. .....?|
|00005e60| 85 85 00 da db 0e 1c 83 | 82 00 dd 82 83 00 c1 5c |........|.......\|
|00005e70| 66 23 2a 29 87 22 20 5b | 70 61 74 20 22 22 20 74 |f#*)." [|pat "" t|
|00005e80| 70 75 2d 72 65 67 65 78 | 70 2d 70 72 6f 6d 70 74 |pu-regex|p-prompt|
|00005e90| 20 22 53 65 61 72 63 68 | 3a 20 22 20 74 70 75 2d | "Search|: " tpu-|
|00005ea0| 73 65 61 72 63 68 2d 6c | 61 73 74 2d 73 74 72 69 |search-l|ast-stri|
|00005eb0| 6e 67 20 74 70 75 2d 75 | 6e 73 65 74 2d 6d 61 74 |ng tpu-u|nset-mat|
|00005ec0| 63 68 20 74 70 75 2d 61 | 64 6a 75 73 74 2d 73 65 |ch tpu-a|djust-se|
|00005ed0| 61 72 63 68 20 63 61 73 | 65 2d 66 6f 6c 64 2d 73 |arch cas|e-fold-s|
|00005ee0| 65 61 72 63 68 20 74 70 | 75 2d 63 68 65 63 6b 2d |earch tp|u-check-|
|00005ef0| 73 65 61 72 63 68 2d 63 | 61 73 65 20 74 70 75 2d |search-c|ase tpu-|
|00005f00| 65 6d 61 63 73 2d 73 65 | 61 72 63 68 20 6e 69 6c |emacs-se|arch nil|
|00005f10| 20 74 20 74 70 75 2d 73 | 65 74 2d 6d 61 74 63 68 | t tpu-s|et-match|
|00005f20| 20 74 70 75 2d 6d 61 74 | 63 68 2d 62 65 67 69 6e | tpu-mat|ch-begin|
|00005f30| 6e 69 6e 67 20 70 6f 73 | 20 66 6f 75 6e 64 20 74 |ning pos| found t|
|00005f40| 70 75 2d 73 65 61 72 63 | 68 69 6e 67 2d 66 6f 72 |pu-searc|hing-for|
|00005f50| 77 61 72 64 20 74 70 75 | 2d 65 6d 61 63 73 2d 72 |ward tpu|-emacs-r|
|00005f60| 65 76 2d 73 65 61 72 63 | 68 20 30 20 74 70 75 2d |ev-searc|h 0 tpu-|
|00005f70| 79 2d 6f 72 2d 6e 2d 70 | 20 66 6f 72 6d 61 74 20 |y-or-n-p| format |
|00005f80| 22 46 6f 75 6e 64 20 69 | 6e 20 25 73 20 64 69 72 |"Found i|n %s dir|
|00005f90| 65 63 74 69 6f 6e 2e 20 | 20 47 6f 20 74 68 65 72 |ection. | Go ther|
|00005fa0| 65 3f 20 22 20 22 72 65 | 76 65 72 73 65 22 20 22 |e? " "re|verse" "|
|00005fb0| 66 6f 72 77 61 72 64 22 | 20 74 70 75 2d 74 6f 67 |forward"| tpu-tog|
|00005fc0| 67 6c 65 2d 73 65 61 72 | 63 68 2d 64 69 72 65 63 |gle-sear|ch-direc|
|00005fd0| 74 69 6f 6e 20 71 75 69 | 65 74 20 6d 65 73 73 61 |tion qui|et messa|
|00005fe0| 67 65 20 22 25 73 53 65 | 61 72 63 68 20 66 61 69 |ge "%sSe|arch fai|
|00005ff0| 6c 65 64 3a 20 5c 22 25 | 73 5c 22 22 20 74 70 75 |led: \"%|s\"" tpu|
|00006000| 2d 72 65 67 65 78 70 2d | 70 20 22 52 45 20 22 5d |-regexp-|p "RE "]|
|00006010| 20 34 20 28 23 24 20 2e | 20 32 33 39 33 39 29 5d | 4 (#$ .| 23939)]|
|00006020| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|00006030| 4b 4d 87 22 20 5b 74 70 | 75 2d 73 65 61 72 63 68 |KM." [tp|u-search|
|00006040| 2d 69 6e 74 65 72 6e 61 | 6c 2d 63 6f 72 65 20 74 |-interna|l-core t|
|00006050| 70 75 2d 73 65 61 72 63 | 68 2d 69 6e 74 65 72 6e |pu-searc|h-intern|
|00006060| 61 6c 5d 20 32 29 0a 23 | 40 34 32 20 52 65 74 75 |al] 2).#|@42 Retu|
|00006070| 72 6e 73 20 74 20 69 66 | 20 73 74 72 69 6e 67 20 |rns t if| string |
|00006080| 63 6f 6e 74 61 69 6e 73 | 20 75 70 70 65 72 20 63 |contains| upper c|
|00006090| 61 73 65 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ase...(d|efalias |
|000060a0| 27 74 70 75 2d 63 68 65 | 63 6b 2d 73 65 61 72 63 |'tpu-che|ck-searc|
|000060b0| 68 2d 63 61 73 65 20 23 | 5b 28 73 74 72 69 6e 67 |h-case #|[(string|
|000060c0| 29 20 22 08 83 71 00 c1 | 5c 6e 21 c3 c4 1d 1e 06 |) "..q..|\n!.....|
|000060d0| 1e 07 c8 c9 0e 07 5c 22 | 89 15 83 23 00 0e 07 0d |......\"|...#....|
|000060e0| ca 5c 5c cb 49 88 82 0e | 00 c8 cc 0e 07 5c 22 89 |.\\.I...|.....\".|
|000060f0| 15 83 38 00 0e 07 0d ca | 5c 5c cb 49 88 82 23 00 |..8.....|\\.I..#.|
|00006100| c8 cd 0e 07 5c 22 89 15 | 83 4d 00 0e 07 0d ca 5c |....\"..|.M.....\|
|00006110| 5c cb 49 88 82 38 00 c8 | ce 0e 07 5c 22 89 15 83 |\.I..8..|...\"...|
|00006120| 6a 00 0e 07 0d ca 5c 5c | cb 49 88 0e 07 0d cf 5c |j.....\\|.I.....\|
|00006130| 5c cb 49 88 82 4d 00 0e | 07 89 97 98 2b 87 5c 6e |\.I..M..|....+.\n|
|00006140| 89 97 98 87 22 20 5b 74 | 70 75 2d 72 65 67 65 78 |...." [t|pu-regex|
|00006150| 70 2d 70 20 63 6f 70 79 | 2d 73 65 71 75 65 6e 63 |p-p copy|-sequenc|
|00006160| 65 20 73 74 72 69 6e 67 | 20 6e 69 6c 20 30 20 70 |e string| nil 0 p|
|00006170| 6f 73 20 63 61 73 65 2d | 66 6f 6c 64 2d 73 65 61 |os case-|fold-sea|
|00006180| 72 63 68 20 70 61 74 20 | 73 74 72 69 6e 67 2d 6d |rch pat |string-m|
|00006190| 61 74 63 68 20 22 5c 5c | 5c 5c 5c 5c 5c 5c 22 20 |atch "\\|\\\\\\" |
|000061a0| 31 20 34 36 20 22 5c 5c | 5c 5c 42 22 20 22 5c 5c |1 46 "\\|\\B" "\\|
|000061b0| 5c 5c 57 22 20 22 5c 5c | 5c 5c 53 2e 22 20 32 5d |\\W" "\\|\\S." 2]|
|000061c0| 20 33 20 28 23 24 20 2e | 20 32 34 36 38 34 29 5d | 3 (#$ .| 24684)]|
|000061d0| 29 0a 23 40 31 34 30 20 | 46 6f 72 20 66 6f 72 77 |).#@140 |For forw|
|000061e0| 61 72 64 20 73 65 61 72 | 63 68 65 73 2c 20 6d 6f |ard sear|ches, mo|
|000061f0| 76 65 20 66 6f 72 77 61 | 72 64 20 61 20 63 68 61 |ve forwa|rd a cha|
|00006200| 72 61 63 74 65 72 20 62 | 65 66 6f 72 65 20 73 65 |racter b|efore se|
|00006210| 61 72 63 68 69 6e 67 2c | 0a 61 6e 64 20 62 61 63 |arching,|.and bac|
|00006220| 6b 77 61 72 64 20 61 20 | 63 68 61 72 61 63 74 65 |kward a |characte|
|00006230| 72 20 61 66 74 65 72 20 | 61 20 66 61 69 6c 65 64 |r after |a failed|
|00006240| 20 73 65 61 72 63 68 2e | 20 20 41 72 67 20 6d 65 | search.| Arg me|
|00006250| 61 6e 73 20 65 6e 64 20 | 6f 66 20 73 65 61 72 63 |ans end |of searc|
|00006260| 68 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |h...(def|alias 't|
|00006270| 70 75 2d 61 64 6a 75 73 | 74 2d 73 65 61 72 63 68 |pu-adjus|t-search|
|00006280| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 61 72 | #[(&opt|ional ar|
|00006290| 67 29 20 22 08 85 17 00 | 09 83 10 00 6f 3f 85 17 |g) "....|....o?..|
|000062a0| 00 c2 75 87 6d 3f 85 17 | 00 c3 75 87 22 20 5b 74 |..u.m?..|..u." [t|
|000062b0| 70 75 2d 73 65 61 72 63 | 68 69 6e 67 2d 66 6f 72 |pu-searc|hing-for|
|000062c0| 77 61 72 64 20 61 72 67 | 20 2d 31 20 31 5d 20 31 |ward arg| -1 1] 1|
|000062d0| 20 28 23 24 20 2e 20 32 | 35 30 34 38 29 5d 29 0a | (#$ . 2|5048)]).|
|000062e0| 23 40 37 39 20 54 6f 67 | 67 6c 65 20 74 68 65 20 |#@79 Tog|gle the |
|000062f0| 54 50 55 2d 65 64 74 20 | 73 65 61 72 63 68 20 64 |TPU-edt |search d|
|00006300| 69 72 65 63 74 69 6f 6e | 2e 0a 55 73 65 64 20 66 |irection|..Used f|
|00006310| 6f 72 20 72 65 76 65 72 | 73 69 6e 67 20 61 20 73 |or rever|sing a s|
|00006320| 65 61 72 63 68 20 69 6e | 20 70 72 6f 67 72 65 73 |earch in| progres|
|00006330| 73 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |s...(def|alias 't|
|00006340| 70 75 2d 74 6f 67 67 6c | 65 2d 73 65 61 72 63 68 |pu-toggl|e-search|
|00006350| 2d 64 69 72 65 63 74 69 | 6f 6e 20 23 5b 6e 69 6c |-directi|on #[nil|
|00006360| 20 22 08 3f 10 c1 c2 21 | 88 74 85 17 00 c3 c4 08 | ".?...!|.t......|
|00006370| 83 15 00 c5 82 16 00 c6 | 5c 22 87 22 20 5b 74 70 |........|\"." [tp|
|00006380| 75 2d 73 65 61 72 63 68 | 69 6e 67 2d 66 6f 72 77 |u-search|ing-forw|
|00006390| 61 72 64 20 74 70 75 2d | 73 65 74 2d 73 65 61 72 |ard tpu-|set-sear|
|000063a0| 63 68 20 74 20 6d 65 73 | 73 61 67 65 20 22 53 65 |ch t mes|sage "Se|
|000063b0| 61 72 63 68 69 6e 67 20 | 25 73 77 61 72 64 2e 22 |arching |%sward."|
|000063c0| 20 22 66 6f 72 22 20 22 | 62 61 63 6b 22 5d 20 33 | "for" "|back"] 3|
|000063d0| 20 28 23 24 20 2e 20 32 | 35 33 31 37 29 20 6e 69 | (#$ . 2|5317) ni|
|000063e0| 6c 5d 29 0a 23 40 35 31 | 20 53 65 74 20 73 65 61 |l]).#@51| Set sea|
|000063f0| 72 63 68 20 64 69 72 65 | 63 74 69 6f 6e 20 66 6f |rch dire|ction fo|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
